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ABSTRACT 



The objective of the research is to develop an automatic method for the indexing of 
drug information appearing in English natural language text. The indexing program automaticaUy 
produces a computer file of document references with their associated index terms which can 
be searched on a coordinate basis for the retrieval of documents containing specified drug related 

information. 

The method will describe a specific document with a degree of precision which makes it 
possible to retrieve information about a given drug regardless of the name that actually appears 
in the text of the document. In addition to assigning index terms to documents the computer 
program also automatically assigns weights to the terms to indicate their relative importance in 



the document description. 
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I. INTRODUCTION 



This is the First Progress Report on research in the automatic indexing of drug informa- 
tion conducted at Rutgers University under grant LM-94 from the Public Health Service National 

Library of Medicine* 

The report describes Phase 1 of the research project whose over-all objective is to 
explore the applicability of automatic methods in the indexing of drug information appearmg in 
English natural language text. 

The relevance of this objective is based on two principal facts: the need to make 
avaDnble up-to-date and accurate information about drugs, and the desirability of minimizing human 



intellectual work in in'’ 



The importa- ailable up-to-date and accurate infornatlon about drags is 

seU-evldent. The . -ceu. -al Industry has had a long term interest in readily accessible 
drug inf-^r^°Ho", whlui Is esr.,.itlal to survival in this highly competitive field. Recently, 
government agencies have stepped up their drug Information activities to facUltate better control 
over the abuse of drugs, to support screening programs ^tended to explore the potential of 
various chemicals for their use as drugs, and to coordinate clinical experience regarding their 



adverse effects. The dissemination of drug Information to the medical profession has also been 
of growing concern in recent years. This has led to attempts at the re-examination of communl 
cation methods in an environment in which a great deal of current information must be trans- 
mitted to a large and scattered group of users. 



K is desirable to minimise human intellectual work in Indexing because there is a 
scarcity of individuals who are qualified and willing to do the job and there is an increase in the 
number of publications which contain information that should be indexed. 

Other reasons which gave impetus to research in the automatic indexing of natural 
language text relate to the greater availabUlty and reduced cost of computers, the prospect of 
Increased availabUity of text in machine readable form as a by-product of the printing process, 
and advances in research related to the development of character recognition devices. 
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Automatic indexing as referred to in this project means that the computer derives index 
entries from the natural language text of the document. This method should not be confused 
with mechanical storage and retrieval systems in which a machine searchable file is created 
from indexing done by humans. 

The research reported on here used as a point of departure previous research done at 
Rutgers on automatic book indexing and will also build on the experience and findings of others 
in the field, ^ 

The automatic indexing method which is being developed in this project will describe a 
specific document with a degree of precision which makes it possible to retrieve information 
about a given drug regardless of the name that actually appears in the text of the document. 

Most drugs have three names: the chemical name which is a scientific and precise description 

of a chemical substance j the generic name or non-proprietary name, which is an abbreviated 
and frequently arbitrary version of the chemical name; and the trade (brand, proprietary) name 
which refers to a particular manufacturer* s product. This implies an automatic capability to 
link a variety of trade names to a particular chemical composition and to the equivalent generic 
name. Display of these relationships and of other indications of document content in the index 
record can then be utilized in the mechanical searching of the automatically produced file. 

An important part of the work concerns the testing and evaluation of the automatic index- 
ing method. This requires the selection of methods for evaluation and the application of the 
evaluative criteria, taking into consideration the limitations Imposed by the artificial controls of 
the experiment. 

Evaluation is to include the comparison of indexing based on full text and on the ab- 
stracts of the same documents. This should provide Interesting insights into such things as the 
role and potential usefulness of redundancy in language as compared to the use of ’^normalized!' 
text. 



^Artandi, S, Book indexing by computer, Ph.D, Thesis, New Brunswick, N, J, 
Rutgers, The State University, 1963. 

^Stevens, M, E, Automatic indexing; a state-of-the-art report, NBS Monograph 91, 
Washington, D. C,, National Bureau of Standards, 1965, 
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The scope of the project was defined through the number of documents indexed and 
through the number of drugs included in the particular group of drugs which was selected for the 
experiment. These limitations are not Inherent in the indexing method. They are intended to 
limit the scope of the project in a manner that a minimum of expenditure should yield a maximum 
of findings from which generalizations can be made. 
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II, STATUS OF THE PROJECT - SUMMARY 



Two major phases of the research have been completed; 

1) Development o£ the automatic Indexing method and its implementation on the test 
documents. 

2) Creation o£ a machine searchable fUe lor the storage ol the Index records generated 
through automatic indexing. 

The test documents consist ol English language periodical articles published in the 

literature and their subject matter relates to anticonvulsant drugs. 

is based partly on a stored dictionary and partly on the identilicatlon ol text 

characteristics which can be used to signal to the computer the presence ol inlormatlon to be 
indexed. 

The characteristics ol the machine lile were established with the deBlred search capabili- 
ties in mind. The lile steres decument references with their associated index terms. In addition 
to assigning index terms to documents the computer program also automatlcaUy assigns weights 
to the index terms te indicate their relative impertance in the document description. 

As it stands now, the indexing program can detect information about anticonvulsants in 

the text and automaticaUy index it in the following way; 

1) index the drug under its preferred name— or names 

2) compute and assign a weight to each term 

3) assign its Chemical Abstracts registry number 

4) assign the name of the chemical group, to which it belongs 

5) link modUlersto drug names to indicate the context in which they appear in the 
articles 



Future Work 

The next two major phases ol the work wlU involve the design and implementation ol the 

search program and the evaluation ol the automatic indexing method. 

The search program will be so designed that the primary inlormatlon access points 
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created through indexing can be further utilized through Boolean searches for the retrieval of 
more specific information. Through the use of the Boolean connectives AND^ OR, NOT, the 
system will be able to answer search questions requiring the presence (or absence) of several 
parameters in specified combinations. 

The evaluation of the indexing method wiU analyze the output of the indexing to ascertain 
the validity of the assumptions which formed the> basis of the indexing method. This will include 
the evaluation of such things as the method of weighting, the basis for linking two terms in the 
index record, and the validity of the particular character string patterns used for the selection of 
index terms. Other evaluation work will relate to the comparison of outputs based on full text 
and on abstracts respectively, on the comparison with other systems, and on the ability of the 
system to deliver specified documents. 
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III. 



description of the automatic indexing method 



Selection of Test Documents 

Published periodical articles were selected as the test documents for the experiment. 

For practical purposes it was necessary to define the scope of the experiment. This was done 
through the number of the test documents and through the number of drugs estimated to be con- 
tained in the drug group selected for the e:^«rlment. On the basis of the latter consideration 
anticonvulsants were selected as the experimental drug group. For a working definition those 
drugs were considered anticonvulsants which were classified as such in the major drug dictionaries 

and the open literature used in the compilation of the dictionary. 

More specifically, for the selection of the test documents the definition used in their 
by the National Library of Medicine was appUed since they were selected from the output 

of a Medlars search for anticonvulsants limited to English language articles. 

Since one of the objectives of the research is to compare Indexing based on the abstracts 
of the same articles, abstracts of the selected articles were obtained or prepared when they were 

not published along with the article. 

Conversion of Text into Machine-readable Form 

There are essentiaUy two major methods of obtaining machine-readable text for computer 

indexing: 

1) as a by-product of the printing process; and 

2) through some kind of conversion procedure using keyboard devices to produce 
cards or tape, or using optical scanning devices. 

in the present experiment the text of the test articles was keypunched into cards with the 
text occupying columns 1 to 72. The only pre -coding that was done was to indicate the end of the 
bibliographic entry and the end of the article. The bibliographic entry consisting of author, title, 
and journal citation is foUowed by a sentinel card to separate it from, the body of the article. 

The keypunching was performed in such a way as to produce as straight-forward a 

representation of the text as possible. The constraints were the characters available on the key- 
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punch. No attempt was made to code aU representations of typed characters. For example, all 
versions of a letter, italic, upper case and lower case were represented by the letter without any 
added code to indicate the difference. Of course the use of punched paper tape instead of cards 
would have automatlcaUy taken care of the differentiation between upper and lower case letters. 
The end of sentences were indicated through the usual typographical practice of two spaces after 
the period and Greek letters were spelled out. 



The Dictionary 

Terms included in the dictionary differ by their nature and their function. Differentiated 



according to their nature we have the following types: 

1) trade (brand, proprietary) names of individual drugs 

2) chemical names of individual drugs 

3) generic names of individual drugs 

4) names of groups of chemical compounds 

5) names of drug groups according to activity 

6) terms which are not the names of drugs or chemicals 

A hierarchical relationship exists among the "drug" terms which involves lour levels. 
The most specific is the trade name (1); next the chemical and the generic name (2, 3); the 
next level is the chemical group name (4); and the fourth level is the group name indicating 

biological activity (5). 

For example: 



Level 1 Mesantoin 

T 2 - 5-ethyl-3-methyl-5-phenylhydantoin 

methylphenyUiydantpin 

Level 3 hydantoins 

I^vel 4 anticonvulsants 



Terms which are not names of drugs or chemicals (6) are used to modify, make more 
specific the drug terms. Examples of such terms are; activity, therapy, toxicity, etc. These 
are carefully linked in the index record, with the appropriate drug name so as to minimize the 
possibility of false drops. Linking is based on co-occurrence within a sentence and Is marked by 

a slash between the terms in the printout. 

According to function the dictionary includes those terms which are actually compared with 
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the text to be indexed and those which appear in the index record. 

Compilation of the dictionary for the project required the identification of those drugs 
which belong to the group of anticonvulsants and the selection of those non-drug terms judged to 
be of indexing value. It should be pointed out here that while a great deal of meticulous woik 
went into the collection of the names of known anticonvulsants no claim is made for the list to be 
all inclusive. All inclusiveness as far as the drug list is concerned is of relatively minor 
importance in this case since the primary objective of the research is to demonstrate the feasibil- 
ity of the indexing method. This, of course, wiU have to be taken into consideration in the 

evaluation of the indexing. 

In addition to identifying anticonvulsant drugs it was also necessary to establish 
equivalencies among chemical, generic, and trade names. Since no single source exists which 
would make this information readily available it was put together from a number of different 
drug dictionaries and from the open literature. The most difficult part of this job was to locate 
the trade names of all drugs which have a common chemical composition. In, some cases more 
than 30 trade names were traced to a single compound. Vocabulary control in the system is 
achieved through the establishment of equivalencies and through the arbitrary designation of terms 
to be those which will appear in the index record. This is essentially the control of synonyms 
which will be automatically taken into consideration by the search program. 

While somewhat peripheral to the research reported on here, work related to the drug 
list demonstrated the great need for improved information sources which display the relationships 
among the generic, chemical and trade names of drugs. This seems especially important in 
view of the current controversy relating to the use of generic name drugs versus brand name 

products. 

Index terms in the system may consist of one or several words and there is no limit 
set for their length. In this project the length of terms ranges between 4 and 65 characters. 

With each drug name in the dictionary there is a ’package” associated, A package con- 
sists of those terms which will appear in the index record whenever the original term appears 
in the text. Regardless of the number of times a term appears in the text its associated 

package will appear only once in the index record, 

A package for chemical or generic names of drugs usually consists of the following: 
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Preferred chemical name 
Preferred generic name 
Chemical group name 
Chemical Abstracts registry number 

For a trade name the package consists of the same as above to which the trade name Is added. 

For terms which are not names of drugs the package consists of a stogie Hem, the 
preferred synonym or word form. The Chemical Abstracts registry number uniquely identifies 
specific compounds and serves as a unique machine address of that compound to the Chemical 
Abstracts Registry System. The registry number Is a nine digit number which has no established' 
pattern. Since it serves as a tag to Identify all information associated with a given compound 
throughout the Chemical Abstract system its presence to the index record potentlaUy can open up 
important additional sources of information for the user. The registry number also serves as 

an additional information access point. 

Terms Not in the Dictionary 

toherent in dictionary-based indexing Is the limitation of missing unknown new information, 
too new to be included to the dictionary. The problem Is to devise some method by which a new 
anticonvulsant, lor example, could be indexed when it Is first reported on to the literature. 
-Catchtai;' of new indexable information Is also important from the point of view of dictionary up- 
dating. While It is possible to up-date the dictionary manually. It Is desirable to make the 

process automatic. 

The question, then. Is how to alert the computer, to terms that It can understand, to the 
presence of Information which should be Indexed. At the current state-of-the-art of automatic 
this problem should be restated as follows: how can you determine characteristics lor 

strings of characters to Indicate to the computer to take note of a particular string of characters. 
One way to do this Is on the basis of location a»i this method Is to some extent used to the 
assignment of modifiers discussed earlier. Another method Is to base recognltton on the pattern 
of the strings of characters. This second approach assumes previous knowledge of the string 
pattern of words which are usually associated with useful Index terms. In this particular research 
the objective was to determine some common characteristics which names of drugs have, charac- 
teristics which will sufficiently distinguish drug names from other terms. Some characteristics 
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which have been identified in case of drug names are such things as their length; an alternating 
string pattern of numbers, letters, and dashes; the capitalization of registered trade names 
followed by a capital R (words which begin and end with an upper case letter) ; the presence of 
such words as ethyl, methyl, etc,, or the presence of Greek letters in chemical names. 

The indexing program selects terms on the basis of their length to complement the 
dictionary method. Strings of characters exceeding 18 characters and not contained in the 
dictionary are put out in the form of a deck of cards for visual inspection. Those terms which 
are judged to be useful index terms are used in two ways: 

1) put in the index record of the document which generated them 

2) are used to update the dictionary 

Evaluation of the output should shed some light on the usefulness of this man/machine method. 

The question of defining appropriate string patterns for computer recognition is an 
important one. While there may not be an opportunity to explore it sufficiently in this project 
it deserves careful attention. The problem is particularly relevant to indexing in chemistry 
where one deals with a relatively standardized vocabulary as compared to the humanities or the 
social sciences, for example. 

Weights 

A considerable segment of experimental work in automatic indexing has evolved from 
H, P, Luhrfs idea that the number of occurrences of a term in text can serve as clues to the 
importance of the concepts they represent. Thus text words can be designated as index terms on 
the basis of their frequency of occurrence in text, A number of more sophisticated variations 
evolved from this original theme such as combining location with occurrence, requiring co- 
occurrence within pre -determined locations, associating frequency of occurrence with subject 
categories, and so on. 

In this project frequency of occurrence was used in the computation of weights. The 
computer performs the simple computation of calculating number of occurrences per thousand 
text words and then converts the resulting fraction into an index number (weight) in the following 
way: 

If the frequency of the term per thousand words of article is less than or equal to 1, the 
article is assigned a weight of 1, If the frequency of the term per thousand words is greater 
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than 1 and less than 3, then it is assigned a weight of 2, Finally, if the frequency of the term per 
thousand words is greater than or equal to 3, then it is assigned a weight of 3. 

Weights Frequency per thousand words 

1 

2 >1 and < 3 

3 ^3 

Frequency of occurrence in case of a drug means the total number of occurrences under any of 
its names and In case of a non-drug term frequency of occurrence under any of Its synonyms. 
Whether or not this is a meaningful and useful method lor the assignment of weights to index 
terms to indicate their relative importance in the subject description of the document remains to 
be determined through the evaluation of the output. 

Forms of Output 

The indexing program was designed with two kinds of output in mind, one based on the 
other. In other words, the machine file had to be designed to be satisfactory for search purposes 
and at the same time produce a printout with a format that is both pleasing to the eye and 
convenient to use, A decision was made to put the index records on magnetic tape which in this 
case will mean that the entire coUection of records is searched each time a query is run, with 

each record being examined for each query. 

For each document the printed record contains the following elements. In this order; 

author 

subject 

bibliographic citation 
total number of text words 

index terms without modifiers, with their respective weights and Chemical 
Abstracts registry numbers 

index terms with modifiers, with their respective weights 
The fact that each record shows aU Index terms which were assigned to the document is 
useful because the terms taken together add up to a rudimentary abstract. Certainly these are no 
substitutes for good informative abstracts prepared by good human abstractors, but they do have 
a certain degree of usefulness, 

A description of the magnetic tape index file is given later in this report. A detailed 
discussion of search capabilities will be given in the next progress report after completion of the 
design and Implementation of the search program. 
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BUCHANAN DS 

AN APPROACH TO MANAGEMENT OF STATUS EPILEPTICUS. 

SOUTHWEST MED 47t 187-9, JUL 66 

NO. OF WORDS = 1760 
(2) BARBITURATES 

57432 (2) AMOBARBITAL, 5-ETHYL-5-IS0AMYLBARBITURIC ACID, BARBITURATES, 
AMYTAL 

50066 (3) 5-ETHYL-5-PHENYLBAREITURIC ACID, PHENCBARB I TAL, BARBITURATES 
(2) ANTICONVULSANTS 

57410 (3) DIPHENYLHYDANTOIN, 5, 5-DI PHENYL-2, 4-IMIDAZOLIDINEDIONE, 
HYDANTOINS 



AMYTAL/ THERAPY (1) 

AMOBARBITAL/ THERAPY (1) 

PHENOBARBITAL/ ADMINISTRATION (U, EFFECT (1), THERAPY (2) 
ANTICONVULSANTS/ EPILEPSY (1), THERAPY (1) 
DIPHENYLHYDANTOIN/ DOSAGE (2) 

BARBITURATES/ ACTIVITY (1) 



END OF ARTICLE 
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IV, DEVELOPMENT OF THE INDEXING PROGRAM 



Hardware Considerations 

In developing a system of the scope and complexity that results from the synthesis of 
many sub-programs into an operating automatic indexing program one is inevitably concerned with 
the characteristics of the computer on which the system of programs is to run. 

Three classes of computer hardware characteristics are of particular relevance to the 
system designer. The first relates to the speed and capacity of the central processor, the 
second concerns the structure of available storage and the tMrd is the character or word organiza- 
tion of the computex^s main memory. 

The choice of computer for this project was dictated by the availability of an IBM 7040 
computer which is part of the instaUatto of the Center for Computer and Mormation Services 
(CGIS) at Rutgers University, 

Since this project is an experiment of limited size the matters of computer speed and 
storage are not of prime concern. However, the concept motivating this approach has been that 
of a pHot project for which the programmed solution should be relatively easily applied to a large 
scale production situation. The IBM 7040 Data Processing System has a basic cycle time of 8 
microseconds. The size of the main computer storage is 32K words. 

Test runs of the automatic Indexing program hidicated that the average time to process 
one thousand words was 18 seconds. Computers are now available which would increase the 
processing rate by a factor of at least ten. Thus a third generation computer with an 800 
nanosecond access time would be able to index a hundred medical articles containing 225, 000 

words in about six or seven minutes. 

Since the size of computer high speed main storage is relatively limited the amount of 
information accessible at high speed is limited. In tiie IBM 7040 32, 768 words each of thirty- 
six bits are addressable and randomly accessible. However in practice the storage available is 
reduced to about 20, 000 computer words by the necessity to store the IBSYS operating system 
software. Because the thirty-six bit computer word can accommodate 6 characters it can be 
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talsfin as an average text word and we have room in memory to store about quarter of an average 
size novel. Of necessity some room is taken up by the text processing program. The first 
important question is to decide where the dictionary of medical drug terms and related words is to 
be stored and what form of file is to be used to maintain high speed processing and yet not 
sacrifice storage. In a sense the simultaneous conservation of space and maintenance of high 
speed are incompatible objectives in programming. The more tightly variably sized information 
is packed the more time will be sacrificed in unpacking it for processing. 

The problem of capacity is complicated by the existence of a variety of types of storage 
media ranging from magnetic ferrite cores in the central processor through the peripheral 
storage devices of disk and drum to magnetic tape. Neither punched cards nor paper tape are 
considered as storage in this project. Punched cards in this project were only used for low 
volume input, for example, updating the dictionary tape. Paper tape input could be used for the 
same purpose. 

The CCB computer has an IBM 1301 Random Access Disk Unit consisting of 2 modules 

% 

having a capacity of 36 million words, a transfer rate of /f6lCc and a maximum access time of 

2 ,/^ 

iJ&O- milliseconds. The system has no drum storage but has seven 729 -Mod 5 magnetic tape drums 
with transfer rates of 60, 000 cps and tape density of 800 bits per inch. 

Types of storage and their capacity vary from machine to machine and Installation 
to Installation, It is possible to design a very efficient system for a particular computer that 
would become inefficient if transferred to a similar' computer having less storage capacity. For 
instance, it is not envisaged that the program would be run on a smaller computer such as the 
IBM 1401* s which are satellites to the center* s 7040, But it is considered that it might well be 
transferred to a faster computer with greater storage capacity. 

An important design criterion in automatic indexing is to minimize cumulative access 
time, that is, the time required for the processor to retrieve and store all text words and 
dictionary words with which it must work in processing an article or a series of articles during 
a particular run. This necessitates the packing of Information into high-speed storage to make 
the best possible use of this valuable asset. In the present project it was possible to store the 
whole dictionary In main memory and to program a very rapid access. The basic concept 
provides for practical growtJa of the project. If the dictionary were to become too large for 
memory it could be placed on the disk unit. The program is written in such a way that only 
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minor modifications would be necessary to adapt it to incorporate disk storage. On the other 
hand capacity constraints may soon become insignificant with the advent of large-capacity fast- 
access storage, 

Sequent^pl processing versus random access. To solve the capacity problem the system 
desj^er must weigh the pros and cons of the available storage devices. Four media are consider- 
ed in this ccmtext, namely, high speed core, random access disk storage and two sequential storage 

media, h%h speed magnetic drum and magnetic tape. 

All data is equally accessible in main memory at the same highest speed. Hence the 
designer is only concerned with size constraints, K memory is too small auxiliary storage is 
requisred. Searching a magnetic tape in the random fashion required to match a term in text with 
the identifying term in the dictionary wcxild be prohibitively slow. Sequential searching of records 
on magnetic tape is feasible in the second project phase of searching the fUe of index records and 
becomes more attractive when aU queries are being processed simultaneously. 

Disk has the advantage that all the Information is randomly accessible but since it 
involves a mechanism with considerable movement of heavy parts access is a couple of magnitudes 
slower than core and moreover the access time depends on the position of the information. 

When the capacity of core is exceeded it would be possible to put the dictionary on a high speed 
drum, sequential storage medium which can be randomly accessed. This possibility is not really 
considered in this case even though a high speed drum can be faster than disk. Availability could 
be the deciding factor and disk is available in the CCJS Installation, 

Computer manipulation of information. It is Impossible to Ignore the organization of the 
computer memory and the repertoire of instructions. One obvious distinction is the word or 
character orientation of memory. 

If Information is handled in words as in the IBM 7040 it is necessary to be able to pack 
and unpack words and to shift characters within the words. The programming will be facilitated 
if there are character handling instructions, shifts and logical Instructions, If the computer is 
character addressable the packing and unpacking of words is eliminated and chanicter manipulation 
is simplified. The tendency in third generation machines is towards flexible handling of informa- 
tion in a variety of variable sized modules or bytes. 

The effective operation of an automatic indexing program is greatly facilitated by using 
techniques that take advantage of economical data packing and efficient logical manipulation of 
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information. 

Software Considerations 

The choice of computer language is one of the most important decisions to be made by 
the designer of an automatic Indexing system. This section discusses briefly the relative merits 
of machine oriented languages, procedure oriented languages and problem oriented languages. 

Text processing, automatic Indexing and index file searching are more closely related to data 
processing than to * scientific* programming involving numerical methods. Little computation 
other than simple counting is required. The most frequently used functions are reading and 
writing of file records, sorting of Information using a particular collating sequence, character 
handling, word composition and decomposition, logical decision maldng and list processing. 

Although the following discussion refers to the available IBM 7040 the arguments used are 
general in nature and could be applied to many computers. To the basic concept of flexibility and 
ability to expand into practical volume production must be added another Important element of the 
philosophy of the project— to be as Independent as possible of the particular computer and to 
achieve as h^ a degree of generality and compatibility as possible in the program. 

Machine oriented languages. The use of absolute machine coding oi an assembly language 
such as MAP — Macro Assembly Programming enables a competent system designer to talte 
full advantage of the capability and capacity of the computer he is using. Certainly specialized 
instructions may be available which significantly save execution time, or facilitate character 
manipulation. Bits, bytes or characters may be efficiently handled, core storage can be conserved 

and input-output time may be pared down. 

It is hard to beUeve that anyone currently writes in machine code yet over-enthusiastic 
programmers in the not too distant past have strenuously claimed to write better code tlian any 
* automatic* method could possibly produce. The credibility of such claims may be heavily 
discounted hi all but a minute number of circumstances. The tedious representation of long 
strings of binary bits by means of octal or decimal code is extinct as a method of coding computer 
programs. The setting of bits to indicate various options obscures any mnemonic quality and is 
highly subject to error in numeric coding. 

An assembly language like MAP is largely a one-for-one mnemonic representation of machine 
code instructions j In addition there are macro instructions. Programming is faster and many of the 
clerical type errors made in machine code are eliminated by the assembly process. There are some 
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major disadvantages in the use of assembly language. It would be inconsistent for example, to devise 
a system of automatic indexing and file search dedicated to efficient documentation and information 
processing by using a program that would be unintelligible to a majority of intelligent professional 
people. This is a real drawback to the use of assembly language. Only the computer programmer 
has any idea what the prc^ram is trying to do. This creates a comprehension gap between the 
professional devising the system and the programmer which the latter is frequently reluctant to bri(%e. 

Another distinct disadvantage is that the program is not transferable to a different kind 
of computer. Moreover the existing program would prove of little help in the major rewrite job 
entailed in producing a program for the new computer. 

E may be argued that those who design the system do not need to understand the program. 
If the view is taken that it is highly desirable for the designer of the system to be convinced 
that his stated concepts are being understood and implemented by the programmer review of 
progress v/ill be necessary and assembly language is virtually ruled out of consideration. 

Procedure oriented languages. The most evident advantages of procedure oriented lan- 
guages are that they are independent of the computer and more closely resemble the everyday 
language of the user. A generalized compiler language such as FORTRAN or COBOL can be 
translated into different machine languages using appropriate processors. 

Compiler languages share some of the advantages of assembly language; namely, 
reduction of clerical errors, use of proven functions and subroutines and error detection. They 
also have significant advantages over assembly language. They are: 

1) Vastly improved documentation if properly used. 

2) Simplified communication with the computer. 

3) Emphasis placed on problem rather than computer. 

4) Significant saving of program preparation time. 

5) Time savings in program error correction or debugging. 

6) Reduced machine time spent in program testing. 

7) High degree of compatibility facilitating easy transfer of program to other computer 
systems. 

The drawbacks of compilers involve inefficiency in the use of core storage, constraints 
imposed by the conventions followed in using the compiler and lack of access to some of the 
more ingenious machine functions. 
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The need for logical instructions for use in bit manipulation not provided in FORTRAN IV 
is recognized by the provision of three machine -dependent logical instructions AND, OR and 
NOT for the IBM 7040 FORTRAN, Thus it is possible to write all the bit manipulation 
routines necessary for character handling. In addition it is possible to write and call MAP 
subroutines to perform specialized manipulation, 

COBOL is also available with the 7040 IBSYS and provides excellent documentation and 
powerful editing features in the data division. But COBOL takes longer to write and more time 
to debug and considerably longer to compile than the equivalent program written in FORTRAN, 
Problem oriented languages . In the hierarchy of computer languages problem oriented 
languages stand above the compiler languages. There are many such languages devoted to the 
solution of problems of certain types such as simulation, civil engineering or coordinate 
geometry. Since these languages cater to particular professional groups they may be said to be 
user-roriented. 

Both SNOBOL and COMIT are user-oriented general purpose symbol-manipulation 
programming languages. These languages are jarticularly convenient for an ever widening 
group of non-numerical problems ranging from text-processing to information retrieval, and from 
theoirem proving and pattern recognition to the maintenance of largely non-numerical files. 

The use of procedure oriented languages minimizes the user’s time for programming a 
problem since the symbol-manipulation languages are well suited for text -processing or automatic 
Indexing, On the other hand there are some definite disadvantages. One drawback is the 
extremely long compilation time because they are general purpose languages not specifically 
tailored to the job of automatic indexing, and another is that processors for these languages have 
been implemented for only a restricted set of computers. 

Languages used in this study. On the basis of the foregoing arguments the main programs 
were written in FORTRAN, Arrays and matrices are particularly easy to deal with in FORTRAN and 
there are a number of powerful functions available so that just about any effect can be easily achieved. 
Originally the idea was to apply MAP assembler language selectively in such a way as to achieve 
almost optimal use of the machine capabilities. 

Very often the advantage of writing a routine in MAP did not appear to outweigh the trouble 
of working with two languages. The introduction of machine oriented routines reducec the 
compatibility of the program and necessitates rewriting when transferring to another computer. 
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Any advantage derived from speeding up running time is offset by the other disadvantages. 
Examination of the MAP listing of the compiled FORTRAN program did not surest any obviously 
great economies. However, if an exceptionally efficient MA.P program were desired work on the 
compiled listing might be the best approach. 

The Overall Programming Approach 

As it was described in the section on the dictionary terms included in the dictionary 
belong to two broad categories — those which are names of drugs and those which are other 
terms than the names of drugs. 

An interesting characteristic of the dictionary that should be noted here is the extreme 

variation in the length of drug names from four letters as in PHOB to sixty-five alpha-numeric 

characters as in P-(TETRHYDRO-2H-l,2-THIAZIN-2-YL)-BENZENESULFONAMIDE,S, DIOXIDE. 

This condition brings into focus the question of how to accomodate the dictionary in 

memory and how to access the terms for comparison with text words. Two main considerations 

thus fimerge at this jimcture; the economical use of space in storing the dictionary and of time 

in processing the text. In general memory storage is saved at the expense of processing time. 

A simple example of this is the use in this project of an integer to represent a transfer address 

12 

which is known to be less than or equal to 4096 or 2 . It would be possible to represent any of 
these integers with 12 bits instead of a whole computer word of 36 bits. Consequently it would 
also be possible to pack three numbers into a word and then extract each number and place it 
right justified in another word before it could be used for its purpose as an integer. 

The observation may be made that extraordinary efforts to save memory are futile when 
there is plenty; it pays rather to take advantage of the space available and strive for fast 
processing. 

Allotment of a constant sized field for each dictionary term would simplify programming 
the search for matching terms. Since these fields would have to be 12 computer words to 
accommodate the largest terms there would be a considerable waste of storage. Moreover, this 
unused storage would be inaccessible. This would very much restrict the size of dictionary that 
memory could hold. 

The alternative is to conserve space by placing one term immediately after another. 

Clearly, because of the variation in size of words, separators, links or pointers will be needed 
to find the beginning of the next word in memory. 
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The concept of the table look-up is a very powerful one in data processing and proves 
very much faster than decision logic for searching a table or file when the query is random* 

In brief, a word in text has to be matched by an identical one in the dictionary. By using the 
first two letters of the word a numeric index can be derived which is the value of a transfer 
address which contains the address of the first term in the dictionary beginning with the given 
letters. These transfer addresses are stored in a vector or matrix. This method leads 
immediately to the locality where the word may be found if it is in the dictionary. Full details 
of this fast combined look-up and search are given in the section on dictionary processing. 

When a word in the text is matched with a drug term in the dictionary it will be 
recorded in the index record by means of a package of terms which consists of the registry 
number, chemical name, generic name and group name. If the term found is a trade name it 
must be recorded as well. Of course, this package, to be referred to as type 1, is recorded 
only once in the index record but a frequency index is calculated from its number of 
occurrences per thousand words of text. 

If the appropriate package of terms were recorded in the dictionary with each drug 
term the size of the dictionary would be about quadrupled. The solution to this problem of 
redundancy is to record a pointer to the associated type 1 package with each drug term in the 
dictionary. addition each package is recorded only once instead of an average of eight times. 
A further saving of storage is achieved through recording dictionary addresses of the package 
terms instead of the actual terms. Moreover the uniformly sized addresses each occupying a 
computer word simplify programming. 

Consequently each term in the dictionary is preceded by a linkage to the next term and 
a pointer to its associated package. The type 1 packages are recorded after the dictionary and 
are followed by the type 2 associated terms. 

The dictionary term is keypunched into a card together with the address of its package. 
The type 1 and type 2 package addresses were allocated by the programmer assigning numbers to 
the packages. These numbers would be converted to index numbers by the program. However, 
the actual process could be automated as described in the section on dictionary processing. 

Dictionary processing first requires the cards to be written to magnetic tape and then 
sorted according to the IBM 7040 scientific collating sequence using the system sort and merge 
IBSORT package. The tape is read by the dictionary processing program to create a matrix of 
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transfer addresses from the first two characters of each term, place the term in memory, 
calculate linkages, put the package pointer in place and read in the vectors for the type 1 and 
type 2 packages. When all of this processing is completed all these things are written out to 
tape creating a binary record which is then ready to be read into memory by the automatic text 
indexing program. 

The Automatic Text Indexing Program 

A detailed flow-chart of the automatic text indexing program appears in Fig. 2. 

The program first reads the binary tape of the current version of the processed dictionary 
into memory. The medical drug articles have been keypunched into cards with the text occupying 
columns 1 to 72. The heading of the article consists of author, title and citation followed by a 
sentinel card which separates the heading from the body of the article. 

A parameter card can be read in to specify the length of a line in the printed record of 
the article heading and another parameter specifies the length of a line in the body of the index 
record. No line justification is attempted in either case, but no word is hyphenated by the pro- 
gram. 

The program reads in a card containing 72 characters of text at a time and processes the 
information from that card. If the volume of articles to be indexed became considerably larger 
it would be worthwhile to perform a card-to-tape conversion and then the indexing program could 
read the records from magnetic tape at a much faster rate. 

A word from the card record is placed in a buffer character by character and the 
number of characters counted. Since the smallest word occurring in the dictionary contains 
four letters any text word containing three letters or less is discarded immediately. 

A subroutine is called upon to compose computer words of six characters each from tlie 
characters of the textword being examined. 

In the IBM 7040 words have to be compared since characters do not exist on their own 
as addressable entities. 

The dictionary terms are also stored in computer words so that the composition of the 
characters of the textword into computer words enables time spent in comparing words to be 
reduced by a factor of six. 

An index is generated from the first two characters of the text word which points to 
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FLOW CHART OF AUTOMATIC INDEXING PROGRAM 





FIG. 2 
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the matrix of transfer addresses. A zero in the transfer address indicates that the word is not 
in the dictionary, A high proportion of words is immediately discarded in this way. However 
if this word contains more than 18 characters it is classed as a ’long word!’ and there is an 
option in the program that provides for a printed listing and punched card output containing the 
long word in columns 1-72 and the serial number of the article in the file in columns 76-80, 

This output is available for human examination by the information retrieval researcher 
who can select the terms he wishes to add to the dictionary and use the retained cards to up- 
date both the dictionary and the index file record. 

K the transfer address is not zero it is then the address of the first dictionary word 
having the same first two letters as the text word. The next step is to compare the text word 
with the dictionary entries. Since these terms are being compared computer word by computer 
word it is possible to record partial equality of terms and the degree of identity. Because 
these partial comparisons could produce terms that should be considered for inclusion in the 
dictionary an option is available to write out and punch out a supplementary record for 
subsequent examination. 

Some of the dictionary terms contain more than one word, for example, 5-ETHYL-5- 
PHENYLBARBirURIC ACID. If the text word gives apparent equality with the dictionary term 
the program provides a multiple word routine which will examine the next text word for equality 
with the next word in the dictionary entry. 

When a valid word is found the word and its associated package is placed in the index 

record. 

To record the relative frequency of occurrence of drug names in the text of an article 
a valid word is counted each time it occurs. The final absolute count is used in the calculation 
of weights as it was discussed earlier. 

When the end of an article is read the index record is printed out and also written to 
magnetic tape. The input format for the text indexing program is shown in Fig. 3. 

Data and character handling subroutines . The initial actual programming approach was 
to write a number of subroutines that would perform necessary data and character handling 
functions. This approach facilitated program testing in the early stages of the project. Brief 
descriptions of the subroutines are given below and program listings are included in Appendix 8. 

If characters are read into the IBM 7040 in A-1 formal; then each character is placed in 
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text editing- input format 
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the left most character position of a six character computer word in main storage. The other 
five character positions will contain spaces. Thus DILANTIN would appear as 

DILANTIN 

Clearly such a representation is wasteful of space. However, comparisons performed character 
by character are wasteful of processing time. 

COMPOS 

This subroutine takes any given number of characters recorded singly and packs them into 
the required number of computer words. 

DECOMP 

This subroutine performs the inverse function of decomposing or unpacking a given 
number of computer words into the required number of characters recorded singly. 

MDEXT 

This subroutine constructs a numeric index, 1 through 4096, from the first two 
characters of a word. 

HEAD 

This subroutine processes the heading of an article for printed output. It will read a 
parameter specifying the maximum number of characters per line. Authors, bitte and citation 
are printed on separate lines and no word or term is broken or hyphenated by the subroutine. 

A program to perform hyphenation would prove too complicated at this stage. Lines of more 
uniform length could be obtained by adjusting the spacing between words so that they will 
occupy the maximum number of characters permitted. 

CONCOD 

This subroutine converts the binary code used for economical representation of the drug 
register numbers into BCD, binary coded decimal form required for printing these numbers on 
the same line as other alphanumeric BCD information. 

CARD-TO-TAPE 

This subroutine transcribes the drug terms keypunched into cards on to magnetic tape 
for sorting and merging with the dictionary tape before the dictionary can be updated and 
processed. 

WRDPUT 

This subroutine checks whether a valid word of given length can be fitted into the print 
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line bulter and calls the subroutine DKCOMP to convert the word from A6 format to Al. E 
there is no room for the word in the print line, the line is printed out in the index record whUe 
the line buffer is reinitialized for the next line to be printed and the valid word becomes the 

first word in it, 

Biiien fm- keypunching. H the aim of this project is to achieve as high a degree of 
automation as possible it is necessary to look forward to a time when a computer readable record 
of an article to a by-product of the process of printing it. hi this case it would be necessary to 
write programs to handle such a record, hi compUing rules lor keypunching articles the wide 
discrepancy between the variety of characters available in the printed record and much smaller 
number in the character set of the model 26 card punch. E was decided not to introduce the 
— of using Special codes to represent the particular printing characters and symbols 
not available on the punch for this would have added considerably to the costand dlfflcutty of 
keypunching. 

The idea was to use as lew rules as possible but then to make It as true to the original 
as the rules would allow. An example of an IncompatlblUty that necessitated a rule is the fact 
that when a word ends on the right hand side of a printed line the next word in the text starts 
at the beginning of the next line. In the punched card this means one word ending in oolumr. 72 
and the next starting in column 1 of the next card. Since these are treated as successive 

the two words would be treated as one tong word. Rules for keypunching articles are 

listed In Appendix 10, 

A,.tbnr nard. The author's surname Is punched first, followed by a space and the author's 
in adjacent columns. E there are several authors a comma and a space separate the 

names. 

Title card. The fuU title of the article Is punched into the title card. E more than 72 

columns arc required the rest of the tttle is punched into foUowing cards. 

Source card. Into this card is punched the following source Information: publisher name 
and location, tttle, volume, pages, date of publication, etc. according to usual bibUographic 

practice. 

The bibUographic entry read in cm cards before the text of an article can be printed out by 
means of the subroutine HEAD which was described earlier. There is an option available lor 
varying the length of the printed line of the bibUographic entry by specUying a line length para- 
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meter* A card containing an X in the first column signals the end of the bibliographic entry* Fig* 
4 shows the punched card record for the bibliographic entry. 

Dictionary Processing and Updating 

Placing the dictionary in storage . The dictionary term is keypunched, left justified into 
the first 72 columns of a card and the ’package* code right justified into the last five columns* 

The ’package* code is a positive or negative integer used in processing the writing of associated 
terms to produce index records from dictionary terms found in the medical article being 
processed* 

Example of card 

columns 1 through 72 76 - 80 

3-ETHYL-5-PHENYLHYDANTPM 19 

The first sub program in the sequence of dictionary processing programs is the card- 
to-tape conversion which transcribes the dictionary cards to magnetic tape. 

Collating sequence— IBSORT— Generalized Sort and Merge, When the previous program 
reads the sentinel card containing the word SIGNAL control passes to the generalized sort and 
merge program, IBSORT. This program allows the use of one of two collating sequences, the 
so called ’scientific’ sequence and the commercial* The scientific collation was selected and 
sorting was performed on the maximum possible field of sixty characters. Caution is necessary, 
however, in treating computer words with a letter in the first six bits as integer numbers as 
was required later in the text processing program* The normal sequence of letters are in 
ascending order of magnitude with B>A and C^B until J is reached. Any word beginning with 
J or any following letters treated as an integer is read as a negative number because it has a 
bit in the most significant position. Hence, in any routine having to check the correct alphabetic 
sequence it is necessary to take account of this transition. 

There are two circumstances involved in this phase; the creation of a sorted dictionary 
tape and the updating of the dictionary tape by the addition of new terms. In the former case the 
magnetic tape produced by transcription of the dictionary cards is sorted. In the latter case the 
tape containing new entries is sorted then merged with the old dictionary tape to produce a new 
updated dictionary tape. 

Dictionary access concepts—matrix of transfer addresses—llnkages . The important 
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functions to be performed in the processing of the sorted dictionary tape are the following. 

1. To create a matrix, actually, for simplicity a vector or array of transfer addresses, 
hi the FORTRAN text processing program these addresses will be used as subscripts to 
locate terms in the dictionary array. 

2o To create pointers or linkage to successor terms in the dictionary, 

3, To record the associated ’package* number for each term, 

4, To read in the successive dictionary terms into contiguous portions of the dictionary array. 

5, To read the ’packages* into arrays recording the dictionary address of a term instead of 

the term itself. 

A detailed flow chart of the dictionary processing is shown in Fig, 6, 

A step by step description of the processing follows. The first term to be read from 
the sorted dictionary is 

l-AMINOPROPANE-l,3-DICARBOXYLIC ACID 
This term takes up 36 character locations or 6 words. The two first characters of this 
term 1- generate an index of 0110 octal or 96. One is added so that the possible indices that 
could be generated range from 1 to 4096 thus avoiding the remote possibility of a zero subscript. 
Consequently the initial pointer or linkage in the matrix at the location 97 is set to 3. The 
package number associated with this term is -5, When the number of computer words in the term 
is counted and account taken of the fact that two computer words separate the dictionary drug 
terms then the pointer or index to the first computer word of the successor term may be computed 
and in this case it is 2 + 6 + 2 + 1 = 11. Thus the first term will appear in memory as in Fig, 5 below. 
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The dictionaxy array is a linked set affordinfj easy access to the next term from the 
preceding term. 

When all the dictionary terms have been arranged in memory they are written out to 
the processed dictionary tape together with the number of computer words occupied by the 
dictionary array. 

The dictionary packages have to be processed into arrays in the following manner. For 
example, the 5th package of type 1 contains the following cards: 



Card 1 


5 56860 


Card 2 


GLUTAMIC ACID 


Card 3 


1-AMDSrOPROPANE-l, 3-DICARBOXYLIC ACID 


Card 4 


BLANK CARD 



The information in this package is recorded in the type 1 array as 56860 996 3 0 
It will be observed that the location 3 of the chemical name itself is recorded here. 

The minus sign in front of the package number in the second word of the dictionary indicates that 
if this term is located in the text of an article it does not have to be written out in addition to 
the package. In this case it is recorded in the package and naturaUy, does not have to be record- 
ed twice. Fig. 5 shows that the second term begins in location 11 while the third term begins 
in location 20 and the fourth in location 26. The completely sorted dictionary of drug terms 
together with their associated address location and package numbers are listed in Appendix 

4. 

As has been previously stated one of the concepts underlying the program was to think 
hi terms of expandability to a large scale production operation without having to make drastic 
alterations in the program logic. Ih a large scale production operation the dictionary might have 
grown too large to be accommodated in core storage. However, the matrix of transfer addresses 
could certainly always be stored in main core. An enlarged dictionary would be written out to 
auxiliary mass storage, probably a disk unit. The vector of addresses would now provide 

appropriate pointers to the required sectors. 

If this kind of expansion had to take place in the immediate future the IBM 1301 Disk 
Storage on the IBM 7040 would have to be used. The organization of data in disk storage and 
the method of processing data affect the seek time for a given operation. The disk storage is 
organized in cylinders and the access mechanism requires time to move from one cylinder to 
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another. A disk module containing 250 cylinders is organized into 5 areas and these are divided 
into six sections. Access motion time is 50 milliseconds within a section of one area while 

from one area to another requires 180 milliseconds. 

These access times are several thousand times greater than the 8 microseconds required 
to access main storage. However, a very much enlarged dictionary could be accommodated on 
disk and the program could be very easily adapted to this change. 

Dictionary maintenance . When it becomes necessary to add new terms to the dictionary 
these should be keypunched into dictionary cards in the format already described. New packages 
of drug synonyms and new package members would have to be allocated. The dictionary cards 
would be then transcribed to tape and the dictionary processing program called into play using the 

sorted tape and the packages cards as input. 

An option in the text editing program provides the basis for a man/machine method for 
dictionary up-dating. Fig, 7 describes the process of dictionary up-dating. The program permits 
the punching of ’long words" into cards as computer output. The cards may be interpreted or 
listed so that they may be examined for possible additions to the dictionary. When the suitable 
additions are selected the cards have to be coded with package numbers and treated in exactly 
the same manner as described for new cards in the section above. 
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1, Sample Output of Automatic Indexing Using Full Text as Input 
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BUTLER TCf KUROIWA Yt WADCELL WJ 

EFFECTS OF 5f 5-DIMETHYL-2t 4-OXAZOLI DINEDIONE 

ELECTROLYTE ECUILIBRIA, 

J PHARMACOL EXP THER l52t62-6, APR 66 

NO. OF WORDS = 2398 

127480 (3) TRIMETHAOIONEf 3f 5 i 5-TRIMETHYL-2f 4 
OXAZOLIDINEDIONES 



TRIMETHADIONE/ ADMINISTRATION (1), EFFECT (1) 
EPILEPSY (1), THERAPY (1) 



END OF ARTICLE 



/ 



iCMO) ON ACID-BASE AND 



-OXAZOLIDINEDIONEf 



, ACTIVITY (1), DOSAGE (2)t 
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SWINYARD EAf CASTELLION AW 

ANTICONVULSANT PROPERTIES OF SOME BENZODIAZEPINES. 

J PHARMACOL EXP THER 151#369-75, MAR 66 

NO. OF WORDS = 3339 
(3) ANTICONVULSANTS 

127480 (3) TRIMETHADlONEf 3f 5 f 5-TRI METHYL-2f 4~OXAZOLIDINEDIONEf 
OXAZOLIDINEDIONES 

50066 (1) 5-ETHYL^5-PHENYLBAREITURIC ACID, PHENOBARB ITAL, BARBITURATES 



ANTICONVULSANTS/ PROPERTIES (1), ACTIVITY (2), EFFECT (2), EPILEPSY (1) 
TRIMETHADIONE/ ADMINISTRATION (2), DOSAGE (ij, ACTIVITY (1) 
PHENOBARBITAL/ ACTIVITY (1) 



END OF ARTICLE 






40 



CHEN Gf ENSOR CR, BCHNER E 
THE NEUROPHARf^ACOLOGY OF 

2-(OMICRON-CHLOROPHENYU-2~METHYLAMINOCYCLOHEXANONE HYDROCHLORIDE. 

J PHARMACOL EXP THER 152t332-?f MAY 66 

NO. OF WORDS = 3050 
57330 (1) PENTOBARBITAL SCDIUNt 
SODIUM 5-ETHYL-5- ( l-METHYLBUTYL) BARBITURATEf BARBITURATES 

(2) ANTICONVULSANTS 



ANTICONVULSANTS/ ADMINISTRATICN (Dt ACTIVITY (Dt DOSAGE «Uf 
EFFECT (1) 



END OF 



R T I C L E 




41 

CAMPBELL FG, GRAHAM JGt ZILKHA KJ 

CLINICAL TRIAL OF CARBAZEPINE ( TEGRETOL ) IN TRIGEMINAL NEURALGIA. 
J NEUROL NEURCSURG PSYCHIAT 2S, 265-7, JUN 66 

NO. OF WORDS = 1831 

298464 (1) CARBAMAZEPINE, TEGRETOL 

(1) ANTICONVULSANTS 



ANTICONVULSANTS/ EFFECT (1) 



END OF 



ARTICLE 



o 



42 



COOPER P 

DRUGS FOR CONVULSIVE DISORDERS. 

MIDWIFE HEALTH VISIT 2f212-3, MAY 66 

NO. OF WORDS = 1340 

(3) ANTICONVULSANTS 

50066 (3) 5-E.THYL-5-PHENYLBAREITURIC ACIDf PHENCBAr.B I TALt B-ARBITURATES 

76948 (1) 5-METHYL-5~PHENYLBAPBITURIC ACIDf BARBITURATES 

125337 (3) PRIMIDONEf 5-PHENYL-5-ETHYLHEXAHYDR0PYRIMI CINE-4,6-DI0NEf 
BARBITURATES 

630933 (2) DIPHENYLHYDANTGIN SODILMf SODIUM 5f5~DIPHENYL HYDANTOINATEf 
HYDANTOINSf GAROIN 

57410 (3) DIPHENYLHYDANTOINf 5 t 5-CI PHENYL~2 t 4-IMI DAZOLI DI NEDI ONE f 
HYDANTOINS 

50124 (2) MEPHENYTOINf 5-ETHYL~3~METHYL-5-PHENYLHYDANT0IN t HYDANTOINSf 
METHOINf MESCNTOIN 

127480 (3) TRiMETHADICNEf 3 f 5 f5-TRI METHYL-2 f4-0XAZ0Ll CINEDIONEf 
OXAZOLIDINEDIONESf TROXIDONEf TRIDIONE 

77678 ( 1) ETHCSUXIMIDEf 2-^ETHVLf 2-METHYLSUCCINIMIDEf SUCCINIMIDES 

86340 (1) PHENSUXIMIDEf N-METFYL~2-PHENYLSUCCINIMIDEf SUCCINIMIDES 

77418 (1) CELONTINf Nf 2-DIMETFYL-2-PHENYLSUCCINIMIDEf SUCCINIMIDES. 
METHSUXIMIDE 

501688 (2) N-BENZYL-BETA-CHLOROPROPIONAMIDEf CHLOROETHYLPHENAMIDE f 
BECLAMIDE 

61563 ( U TET«AHYDR0-2-P-SULFAMCYL-PHENYL-lf2-THIAZINE-lf 1-DIOXIDEf 
SULTHIAME 

90493 (2) (2-PHENYLBUTYRYL)UREAf PHENETURIDE 

63989 (1) PHENACEMIDEf PHENYL/iCETYLUREA 

298464 (1) CARBAMAZEPINEf TEGRETOL 



ANTICONVULSANTS/ THERAPY (l)f DOSAGE {l)t EFFECT (2)f PROPERTIES (1) 
PHENYLMETHYLBARBITURIC ACID/ COSAGE (1) 

BARBITURATES/ DOSAGE (2) 

PHENOBARBITONE/ DOSAGE (2)f EFFECT (1) 

PRIMIDONE/ EFFECT (l)f DOSAGE (1) 

PHENYTOIN/ DOSAGE (l)f THERAPY (1) 

TROXIDCNE/ EFFECT U) 

BECLAMIDE/ EFFECT (1) 




END OF ARTICLE 



43 



SMITH DL» KEASLING HH, FORIST AA 

THE METABOLISM OF N-ALKYL-4-BPOMOBENZENESULFONAMIDES 
CORRELATION WITH ANT ICONVllLSA^T ACTIVITY. 

J MED CHEM 8f520-Af JUL 65 



IN THE MOUSE. 



NO. OF WORDS = 3014 
(3) ANTICONVULSANTS 



ANTICONVULSANTS/ ACTIVITY (3)? EFFECT (23? ADMINISTRATION (13? 
THERAPY (13 



END OF /8RTICLE 



o 



44 



LOWRY OH 

metabolite levels as indicators of control mechanisms. 

FED PROC 25f8A6-9f MAY-JUN 66 



NO. OF WORDS = 1616 

50066 (1) 5-ETHYL-5-PHENYLBARE ITURIC ACIDt 



PHENOBARBiTALf 



end of article 




BARBITURATES 



45 



KLEIN JP 

DIPHENYLHYDANTOIN INTOXICATION ASSOCIATED WITH HYPERGLYCEMIA. 

J PEDIAT 69,463-5, SEP 66 

NO. OF WORDS = 1219 

57410 ( 3) DIPHENYLHYDANTOIN, 5 , 5-CI PHEN YL-2 ,4-1 fU OAZOL I DI NED I ONE , 
HYDANTOINS 

50066 (2) 5-ETHYL-5-PHEN''*,BAReiTURIC ACID, PHENCB ARB I TAL, BARBITURATES 
(1) ANTICONVULSANTS 



DIPHENYLHYDANTOIN/ ADMINISTRATION (2), EFFECT (1), DOSAGE (1) 
ANTICONVULSANTS/ ADMINISTRATION ID 



END OF /ARTICLE 



o 



46 



DOUGLAS At SINPSON D, MERCHANT S 
THE EFFECT OF ANT I SPASMODIC DRUGS ON 
SQUEEZE) PRESSURES IN BRONCHITIS AND 
AMER REV RESP DIS 93f703^15t NAY 66 



THE ENDOMURAL BRONCHIAL 
ASTHMA. 



(OR 



NO. OF WORDS = 4425 
(3) ANTISPASMCDIC 



ANTI SPASMODI C/ EFFECT (2)? ADN IN I STRAT I ON (D? ACTIVITY (1) 



end of /SRTICLE 




47 



LIPP JA 

EPILEPSY. II. BASIC NEUROPHYSIOLOGICAL ASPECTS OF ANTICONVULSANT 
DRUGS. 

APPL THER 8, A37-Alf NAY 66 

NO. OF WORDS = 3001 
(3) ANTICONVULSANTS 

(3) BARBITURATES 

50066 (2) 5-ETHYL~5-PHENYLBAReiTURIC ACIDt PHENOBARBITAL» BARBITURATES 

115388 (1) MEPHOBARBITALf 5-ETHYL-1-METHYL-5-PHENYLBARBITURIC ACID* 
BARBITURATES 

125337 (2) PRIMIDONEf 5-PHENYL-5-ETHYLHEXAHYDR0PYRINICINE-4,6-DI0NE. 
BARBITURATES 



(1) HYDANTOINS 



57410 (3) DIPHENYLHYDANTOINt 5t5-DIPHENYL-2,4-INIDAZ0LlDINEDl0NEf 
HYDANTOINS 



127480 (2) TRiMETHADlONEf 3t 5f5-TRINETHYL-2,4-0XAZ0LlDINEDl0NE, 
OXAZOLIDINEDIONES 

86340 (1) PHENSUXIMIDEf N-METFYL-2-PHENYLSUCCINIMIDE, SUCCINIMIDES 

77418 ( 1) CELCNTINf Nf 2-DIMETFYL-2-PHENYLSUCCINIMIDE, SUCC INI MI DES f 
METHSUXIMIDE 

77678 (1) ETHOSUXIMIDEf 2-ETHYLf 2-METHYLSUCCI NIMI DE, SUCCINIMIDES 
63989 (ID PHENACEMIDE, PHENYLACETYLUREA 

50124 (1) MEPHENYTOINt 5-ETHYL~3-NETHYL-5-PHENYLHYDANT0IN f HYDANTOINS 



ANTICONVULSANTS/ EPILEPSY (1), ACTIVITY (3)t EFFECT (1), PROPERTIES (1), 
THERAPY (1) 

BARBITURATES/ EPILEPSY (l)t ACTIVITY (2)f EFFECT (1) 

HYDANTOINS/ EPILEPSY (1) 

DIPHENYLHYDANTOSN/ ACTIVITY (2)t THERAPY (1), EFFECT (1), EPILEPSY (1) 
TRIMETHADIONE/ ADMINISTRATION (l)f ACTIVITY (2), DOSAGE (1) 

PRIMIDONE/ EPILEPSY (1), THERAPY (1) 

PHENOBARBITAL/ ACTIVITY (1), EPREPSY (1), DOSAGE (1) 

MEPHOBARBITAL/ THERAPY (1) 



0 F 



END 



ARTICLE 



48 



NEALON TF JR» SUGERMAN Ht SHEA W 
AN EXTRACORPO^^EAL DEVICE TO TREAT 
ANION- EXCHANGE RESINS IN DOGS. 
JAMA 197f 158-1609 11 JUL 66 



BARBITURATE POISONING. 



USE OF 



NO. OF WORDS = 1639 
(3) BARBITURATES 

50066 (3) 5-ETHYL-‘5-PHENYLBAREITURIC ACIDt PHENCBARBI TALt BARBITURATES 



PHENOBARBITAL/ THERAPY (3)» DCSAGE (21 
BARBITURATES/ ADMINISTRATION (l)t THERAPY (1) 



END OF article 



o 



ADVANCEs''lN PHARMACOLOGY RELATED TO ANESTHESIA AND SURGERY. 
INDUSTR MED SURG 35f465-71t JIN 66 



49 



NO. OF WORDS = 4594 
(2) BARBITURATES 

(1) ANTISPASMCDIC 



BARBITURATES/ THERAPY (1)? ACTIVITY (1)? 



EFFECT (l)f DOSAGE (1) 



end of /article 




50 



BERNSTEIN ZL 

TREATMENT OF BARBITURATE COMA. 

NEW YORK J MEC 66, 2290-4, 1 SEP 66 

NO. OF WORDS = 2428 

57410 (2) OIPHENYLHYDANTOIN, 5 , 5-CI PHENYL-2 ,4-1 MI DAZOLI DI NEDI ONE, 
HYDANTOINS 

(3) BARBITURATES 

57432 (IJ AMOBARBITAL, 5-ETHYL-5-IS0AMYLBARBITURIC ACID, BARBITURATES 
50066 U) 5-ETHYL-5-PHENYLBAREITURIC ACID, PHENCBARB I TAL, BARBITURATES 



DIPHENYLHYDANTOIN/ THERAPY (1) 

BARBITURATES/ EFFECT Cl), ACTIVITY Cl), THERAPY (3)» DOSAGE (1) 



END OF /ARTICLE 



51 



CHINITZ A, SEELINGER DF, GREENHOUSE AH 
ANTICONVULSANT THERAPY IN TRIGEN'INAL NEURALGIA. 

AMER J MED SCI 252i62-7, JUL 66 

NO. OF WORDS = 2427 

630933 (3) DIPHENYLHYDANTOIN SODIUM, SODIUM 5,5-DIPHENYL HYDANTOINATE , 
HYDANTOINS 

(2) ANTICONVULSANTS 

298464 (3) CARBAMAZEP INE , TEGRETOL 



DIPHENYLHYDANTOIN SODIUM/ EFFECT (3), THERAPY (2), ADMINISTRATION (1), 
PROPERTIES (1), ACTIVITY (1) 

ANTICONVULSANTS/ EFFECT (1), PROPERTIES (1) 

CARBAMAZEPINE/ THERAPY (1), EFFECT (1) 



END OF ARTICLE 



o 



52 



ARMBRECHT ECt STEERE DW 

A CASE REPORT OF EVALUATION AND MANAGEMENT OF HYPERPLASTIC GINGIVA IN 
EPILEPTICS CAUSED BY SODIUM DILANTIN 
W VIRGINIA DENT J 40fA3-4f JUL 66 

NO. OF WORDS = 906 

50066 (2) 5-ETHYL-5-PHENYLBAREITURIC 

630933 (2) DIPHENYLHYDANTOIN SODIUM» 

HYDANTOINSf DILANTIN SODIUM 

(2) ANTICONVULSANTS 

(2) BARBITURATES 

57410 (2) DIPFENYLHYDANTOINf 5 f 5~DI PHENYL-2f 4-IMIDAZOLIDI NEDIONEf 
HYDANTOINSf DILANTIN 



THERAPY. 

ACIDf PHENCBARBITALf BARBITURATES 
SODIUM 5f5-DIPHENYL HYDANTC I NATE t 



DILANTIN SODIUM/ THERAPY t2) 
ANTICONVULSANTS/ EPILEPSY (2) 
BARBITURATES/ EPILEPSY (2) 
DILANTIN/ EFFECT (2)t THERAPY (2) 



END OF ARTICLE 



o 



53 



GILBERT JCi ORTIZ WRi MILLICH/^P JG 

THE EFFECTS OF ANTICONVULSANT DRUGS ON THE PERMEABILITY OF BRAIN 

CELLS TO D-XYLOSE. 

J NEUROCHEM 13i247-55i APR 66 

NO- OF WORDS = 3338 
(3) ANTICONVULSANTS 

50066 (3) 5-ETHYL-5-PHENYLBAREITURIC ACID, PHENOBARBI TAL, BARBITURATES 

695534 (3) DIMETHADIONE , 5, 5-C IMETHYL0XAZ0LIDINE-2,4~DI0NE, 

OXAZOL IDINEDIONES 

57410 (3) DIPHENYLHYDANTOIN, 5 , 5-DI PHENYL-2 , 4-1 M I DAZOLI DI NEDI ONE , 
HYDANTOINS 

127480 (1) TRIMETHADIONE, 3 , 5 , 5-TRI METHYL-2 ,4-OXAZOLI DI NEDI ONE , 
OXAZOLIDINEDIONES 



ANTICONVULSANTS/ EFFECT (1), ACTIVITY (1) 

PHENOBARBITONE/ EFFECT (2J, THERAPY ID, ADMINISTRATION (1), 
ACTIVITY (1) 

DIPHENYLHYDANTOIN/ ACTIVITY (1), EFFECT (2) 

DIMETHADIONE/ ACTIVITY (1) 

TRIMETHADIONE/ THERAPY (1) 



END OF ARTICLE 



o 



54 



HUDGINS RLf CGRBIN KB 

AN UNCOMMON SEIZURE DISORDERt FAMILIAL PAROXYSMAL CHGREOATHETOS IS . 
BRAIN 89tl99-204» JUN 66 

NO. OF WORDS = 2498 

115388 (1) MEPHOBARBITALt 5-ETHYL-1-METHY1-5-PHENYLBARBITURIC ACIDt 
BARBITURATES 

57410 (2) DIPHENYLHYDANTOIN# 5t5~CI PHENYL-2t4-IMIDAZ0LIDINEDI0NEt 
HYDANTOINS 

(2) ANTICONVULSANTS 

50066 m 5-ETHYL-5-PHENYLBAREITURl‘C ACIDt Pr^.^’MCBARBITALt BARBITURATES 



ANTICONVULSANTS/ THERAPY (2) 
PHENOBARBITAL/ THERAPY (1) 



END CF ARTICLE 



o 



Automatic Indexing Program Listing 



56 



B/^XENCA fortran SOURCE LIST 

ISN SOURCE STATEMENT 



0 $IBFTC EDIT 

1 DIMENSION INBUF(72) 

2 DIMENSION NMW0RD(50,2) 

3 DIMENSION INDICO) 

4 DATA BLANK, Z, COMMA, PERIOD/IH , IHZ, IH, , IH. / 

5 DATA I^DIC/1H1, 1H2, 1H3/ 

6 DATA MA,X, CASH, LP,RP, SLASH, AST, EIGHT/IHM,1HX,1H-, 



1H(,1H),1H/,1H*, 



7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 



11H8/ 

COMMON /H/ MARGIN 

COMMON /LIN/ LIN E ( 132 ) ,LINDEX, LMARG, DI CT ( 3C0C ) 

COMMON KW0RD(14) ,NWRDS ,W0RD(72 ), LENGTH 
INTEGER DICT 

integer PACK4(350),PACK1(100) ^„Ano#/roAi 

INTEGER COLUMNcPERIOD,COMMA,Z,BLANK,WORD,TR ADD (4096) 
integer GOCDWD(100,2) ,GINDEX 
INTEGER SAVE,SVINDXtSUPL(750) 

INTEGER SVLNGH 
INTEGER SINDX2 
integer SUPL21400) 

INTEGER PINDEX,PACKNO, REGNO 
INTEGER ENDSEN 

INTEGER SUPL3(50 , 3) ,TYPE1,TYPE2, SINDX3 
integer SW1,SW2 
INTEGER WRDCT 
INTEGER PTERM 

INTEGER Rp,X, DASH, EIGHT, SLASH, AST 

integer PCCUNT 

r ********************* *************************■’*'**'** 

C ****** DATA INPUT AND INITIALIZATION SECTION ****** 

C **************************************'*^*********^** 



32 

33 

35 

43 

46 



REWIND 2 

C READ IN TRANSFER ADDRESS ARRAY FROM TAPE B-3. 

READ (2) TRADD 

C READ IN DICTIONARY SIZE AND CONDENSED DICTIONARY. 

READ «2) J,(DICT(I),I=1»J) 

C READ IN PACKAGE ARRAYS. 

READ(2) PACK4,PACK1 



REWIND 2 

IT^IS^REQUIRED*^TO^HAVE PUNCHED IN COLUMNS 1-3, 5, 7, AND 8-10 

OF THE PARAMETER CARD (THE FIRST CARD TO BE READ). cuoRniiTTMF 

THE THREE DIGIT NUMBER PUNCHED IN COLS. J 

-HEAD- FOR THE MARGIN WIDTH OF THE HEADING OF EACH ARTICLE. 

A NUMBER PUNCHED IN COLUMN 5 HAS THE FOLLOWING MEANING 

1.. .LIST COMPARISONS AND LARGE WORDS. 

2. . .LIST COMPARISONS ONLY. 

3. . .LIST LARGE WORDS ONLY. 

4. . .DO NOT LIST COMPARISONS OR LARGE WORDS* 

A NUMBER PINCHED IN COLUMN 7 HAS THE rCLlOWING MEANING 

2!I!Do'^NOrSAVE°NON-MEDlCAL TERMS. (THEIR ASSOCIATION WITH 
MEDICAL TERMS WILL BE SAVED). 

THE THREE DIGIT NUMBER PUNCHED IN COLS. I cpd 

<iURROUTINE — WRDPUT— FOR THE WIDTH OF THE PRINT LINE USED FOR 
OUTPUT OF VALID MEDICAL WORDS, NON-MEDICAL WCRCSt; AND ASSOCIATIONS. 



o 



•71 



FORTRAN SOURCE LIST EDIT 



57 



ISN 



BAXENCA 

SOURCE STATEMENT 



47 READ (5,1) M ARGI N , SWl , SW2 , LMARG 

54 1 FORMAT (13,212,13) 

C INITIALIZE LENGTH 

55 2 LENGTH = 0 
C INITIALIZE WORD COUNT TO 0. 

56 WRDCT = 0 

C SET -VALID WORD- INDICATOR TO 0 (OFF). 

57 IVALID=0 

C SET -PREVICUS VALID WORD IN SENTENCE- INDICATOR TO 0 (OFF). 

60 ISENT=C 

C SET -REACHED END OF SENTENCE- INDICATOR TO 0 (OFF). 

61 ENDSEN=0 
C INITIALIZE INDEXES FOR 

62 GINDEX=1 

63 NMINDX = 1 

64 SVINDX=1 

65 SINDX2=1 

66 SINDX3=1 

C SET FIRST WORD IN EACH 

C FOR EACH FILE). 

67 600DWD(1,1)=9 

70 NMWORDd,!) = 0 

71 SUPL(1)=0 

72 SUPL^(1)=0 

73 SUPL3(1,1)=0 

74 SUPL3(1,2)=0 
C PROCESS THE BIBLIOGRAPHIC CITATION FOR THE NEXT ARTICLE. 

75 CALL HEAD 

C ********4f*«********»************<f**«* 

C ****** WORD EXTRACTION SECTION ****** 

C ******** ?'******* ***************** 

C READ IN OF THE TEXT. 

76 3 READ (Lt-' J INBUF 

100 4 FORMAT (7?'A1) 

C CHECK FOR END OF ARTICLE CARD (ZZZ) 

101 IF ( INBUF(l) .EQ.Z.AND.INBUF(2) .EQ.Z.AND.INBUF(3).EG.Z) GO TO 44 
C INITIALIZE TO CHECK BEGINNING OF INPUT BUFFER. 

104 DO 5 1=1,72 

C LOOK FOR A BLANK BETWEEN TWO WORDS. 

105 IF ( INBUF( I) .EQ.BLANK) GO TO 6 

110 LENGTH=LENGTH+1 

C REMOVE THE NON-BLANK CHARACTER FROM THE INPUT BUFFER. 

111 WORD(LENGTH)=INBUF(I) 

112 5 CONTINUE 

114 GO TO 3 

C CHECK TO SEE IF WORD IS NULL. 

115 6 IF(LENGTH.EQ.O) GO TO 5 

C INCREASE THE WORD COUNT. 

120 WRDCT = WRDCT+1 

C WORD IS NOT NULL, CHECK FOR PUNCTUATION AND END OF SENTENCE. 

121 IF (WORD(LENGTH) .EQ. PERIOD) ENDSEN=1 

124 IF (WORD(LENGTH) .EQ. PERIOD. OR. WORD(LENGTH) .EC. COMMA) GO TO 7 

C THERE IS NC PUNCTUATION 
GO TO 6 

C REMOVE LAST CHARACTER (PUNCTUATION) 



5 FILES. 



FILE TO 0 (THIS IDENTIFIES THE -END OF FILE- 



127 



58 

ISN 

130 

131 

132 
135 



B/^XENCA 

SOURCE STATEMENT 



fortran source list edit 



TO 

TO 



25 

A6 FORMAT. 



C 

C 

C 

C 



136 

141 

142 

143 

144 

145 

146 



C 

C 



151 

152 

155 

156 
161 

162 

163 

166 

170 

173 

174 

175 

176 



7 WORD(LENGTH) =BLANK 
LENGTH=LENGTH-1 

CHECK FOR SHORT WORD 

8 IF(LENGTH.LT.4) GO 
CONDENSE TFE TEXT WORD 

CALL CCMPOS 

****** ****■» ********* ******************* 

«**«** DICTIONARY SEARCH SECTION ****** 

*************************************** 

GENERATE TRANSFER MATRIX ADDRESS INDEX 
IF (KWCRD( 1) .LT.O) GO TO 9 
INDEX=KWORD{ l)/2**24 
GO TO 10 

INDEX=2**11-KW0RD(1)/2**24 

INDEX=INDEX+1 
M = TR/iDD( INDEX) 

IF TRANSFER ADDRESS IS Of WORD IS NO GOOD 

if^word'is^alphabetically below dictionary entry, end dictionary 

SEARCH 

(KWCRDl 1) ) 12,25f 13 
(KWCRD(I) .GT.DICTIM)) GO TO 19 

{dICT(M) .GT.KWORD( 1 ) ) GO TO 19 



9 

10 



12 



IF 

IF 

GO 

IF 



C 

C 

c 



13 

14 MTEMP=M 

CHECK FOR A MAXIMUM COMPARISON WITH A 
DO 15 MAXCCM=lfNWRDS 
IF (DICT(MTEMP) .NE.KWORD(MAXCOM) ) 

15 MTEMP=MTEMP+1 

TEST TEXT WORD AND DICT WORD 

IF (NWRDS.EQ. (DICT(M-2)-(M+2) ) )G0 TO 28 

SAVE=M 

MODIFY^INDEX M up to next DICT ENTRY. 

16 M=DICT(M-2) 

GO TO 11 

******************************************* 
****** multiple word check section ******* 

******************************************** 

I 



DICTIONARY WCRD 
GO TO 18 

IF SAME 



• • • 



GOOD WORD 



177 

200 

201 

202 

203 

204 



C 

C 

C 

C 



A MULTIPLE WORD CHECK IS IN PROGRESS 



205 



„ INCREASE LENGTH AND INDEX 
]7 LEiyGTH = LENGTH+1 
1 = 1 + 1 

C PUT IN A BLANK 

WORD(LENGTH)=BLANK 
SVLNGH=LENGTH+1 
C SET INDICATOR TO SHOW THAT 
MULWRD=1 ^ 

C GO BACK TO WORD EXTRACTION SECTION 

*.««2.I2.L.*«**«*«»*«**»*»*»********************** 

SAVE word section (PARTIAL COMPARISON! .«..•* 

:srK‘;sr;rR;nrcrM;:;rsSNrrNrErsr«ss: m^s ..o comparison 

18 IF ( (MAXCOM.EQ.1 ) .OR. (MAXCOM.lt. MAX+1) ) GO TO 16 
SET SAVE INDICATOR TO DICTIONARY INDEX 



iSN 

210 

211 

212 



213 

216 



221 



222 

223 

224 

225 

226 
227 
230 
232 



233 



234 

237 



244 

.245 

246 

247 
250 

252 

253 



254 

257 

262 

263 

264 



59 



B/SXENCA FORTRAN SOURCE LIST EDIT 

SOURCE STATEMENT 

SAVE = M 

C SET WAX TO MAXIMUM COMPARISON 
MAX=MA>CCM-1 
GO TO 16 

C TEST SAVE INDICATOR FOR A NON-VALID WORD, IF ZERC, DO NOT SAVE 
C GO TEST FOR LENGTH 

19 IF (SAVE. EG. 0) GO TO 22 

C IF MULTIPLE WORD CHECK iS IN PROGRESS DO NOT SAVE ANY PARTIAL COMPARISONS 
IF (MULWRD.EQ.l) GO TO 25 

C WE NOW HAVE A SINGLE WORD THAT COMPARES TO A WCRC IN THE DICTIONARY. 

C TEST PROGRAM PARAMETER TO SEE IF THIS WORD SHOULD BE SAVED. 

GO TO (20,20,17,17), SWl 

C PUT DICTIONARY INDEX, MAXIMUM COMPARISON, WORD LENGTH, AND TEXT WORD 
C IN SUPPLEMENTARY RECORD 

20 SUPL(SVINDX) = SAVE 
SUPL(SVINDX+1)=MAX 
SUPL(SVINDX+2)=NWRDS 
SVINDX=SVINDX+3 

DO 21 J=1,NWRDS 
SUPL(SVINDX)=KWORD( J) 

21 SVINDX=SVINDX+1 
3UPL(SVIN0X)=0 

C ZERO WILL EE WRITTEN OVER BY NEXT ENTRY IN SUPL. RECORD, OTHERWISE 
C IT IS A SIGNAL FOR THE END OF THE SUPL. RECORD 
GO TO 17 

C ***********^ ************** ****1k* ************ 
c ****** SAVE WORD SECTION (LARGE WORD) ****** 

C ************************** ****************** 

C TEST FOR LARGE SINGLE WORDS. 

22 IF ( (LENGTH. LT. 18) .OR. (MULWRD.EQ.H ) GO TO 25 
C PUNCH A CARD WITH THE LONG WORD. 

WRITE (7,80 (KWORD( J) ,J=1,NWRDS) 

C WE NOW HAVE A LARGE WORD (18 OR MORE CHARACTERS). TEST PROGRAM 
C PARAMETER TO SEE IF THIS WORD SHOULD BE SAVED. 

GO TO (23,25,23,25), SWl 
C SAVE WORT IN SUPL. RECORD 2 

23 SUPL2(SINDX2) = NWRDS 
DO 24 J = 1, NWRDS 
SINDX2=SINDX2+1 

24 SUPL2(SINDX2)=KW0RD(J) 

SINDX2=SINDX2+1 

SUPL2(SINDX2)=0 

C ZERO WILL EE WRITTEN OVER BY NEXT fci I'RY, OTHERWISE IT IS AN END OF 
C RECORD SIGNAL. 

C ******************** ********************** 

C ****** WORD CHECK COMPLETED SECTION ****** 

C **<***************************************# 

C CHECK FOR A MULTIPLE WORD. 

25 IF (MULWRD.EQ.O) GO TO 27 

C IF THIS WORD IS VALID, GO TO VALID WORD SECTION. 

IF (IVALID.NE.O) GO TO 29 

C RESTORE SECOND (ADDENDED WORD) OF MULTIPLE WORD FOR A SEPARATE CHECK. 

J=1 

DO 26 K=SVLNGH, LENGTH 
WORD( J)=WORD(K) 
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265 26 J=J+1 

267 LENGTH^LEN6TH+1-SVLNGH 

270 MULWRD=0 

271 SAVE=0 

C GO BACK TO PROCESS THIS WORD. 

272 GO TO 8 

C REINITIALIZE FCR A NEW TEXT WORD 

273 27 LENGTH=0 

274 SAVE=0 

275 MAX=0 

C CHECK TO SEE IF END OF SENTENCE WAS REACHED. IF SC, TURN OFF 
C -“PREVICUS VALID WORD IN ScNTENCE- INDICATOR, 

276 IF (ENCSEN.EC.l) ISENT=0 

301 ENDSEN=0 

302 GO TO 5 

C ********«*«***«**««**«*«*****«* 

C ******VALIC WORD SECTION ****** 

C ******************************* 

303 28 IVALID=M 

C EVEN THOUGH A WORD IS VALID, IT IS POSSIBLE FOR IT TO BE PART OF A 
C MULTIPLE WCRD, SO TEST TO SEE IF THIS VALID WORD IS A SINGLE WORD CR 
C A MULTIPLE WORD. 

304 IF (MULWRD.EQ.l) GO TO 29 

C GO PICK UP SECCND WORD FROM TEXT. 

307 GO TO 17 

C IF THERE H/IS BEEN ANOTHER VALID WORD IN THE SAME SENTENCE, GO TO 
C VALID WORD ASSOCIATION SECTION. 

310 29 IF (ISENT.NE.O) GO TO 38 

C PICK UP PACKAGE NUMBER OF THIS WORD FROM DICTIONARY. 

313 30 ITEMP = IABS(DICT( IVALID-in 

C TEST PACKAGE NUMBER TO SEE IF WORD IS MEDICAL CR NCN-MEDICAL. 

314 IF ( ITEMP.lt. 200) GO TO 34 

C WORD IS NO^-MEDICAL, TEST PROGRAM PARAMETER TO SEE IF IT SHOULD BE 

C SAVED. 

317 GO TO (31,36), SW2 

320 31 IVALID = PACKK I TEMP-200) 

C SEARCH NON-MEDICAL FILE FOR THE SAME WORD. 

321 DO 32 J = 1,NMINDX 

322 IF ( IVALID. EQ.NMWORD(J,D) GO TO 33 

325 32 CONTINUE 

C PUT NEW WORD AND THE COUNT IN THE FILE. 

327 NMW0RD(NMINDX,1) = IVALID 

330 NMWORDiNMINDX,?.) = 1 

331 NMINDX = NMINDX+1 

C SET UP A NEW END OF FILE INDICATOR. 

332 NMW0RD(NMINDX,1) 0 

333 GO TO ’6 

C SINCE WORD^IS ALREADY IN THE FILE, JUST INCREASE ITS COUNT. 

334 33 NMW0R0(J,2) = NMWORD( J,2 )+l 

335 GO TO 36 

C PROCESS THE VALID MEDICAL WORD, SEARCH THE FILE FOR THE SAME WCRD. 

336 34 DO 35 J=1,GINDEX 

337 IF (IVALID. EQ.GOODWDU,!)) GO TO 37 

342 35 CONTINUE 

C PUT NEW WORD INTO LIST OF VALID MEDICAL WORDS. 
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347 

350 

351 
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G00DWD(GINCEX,1)=I VALID 
G00DWD(GINDEX,2)=i 

GINDEX=GINDEX+1 ^ 

C THE ZERO AT THE END OF THE LIST IS AN END OF LIST SIGNAL 
GOODWD(GINDEXf 1) =0 

INDICATOR SHOWING A VALID WORD IN SENTENCE BEING PROCESSED. 
ISENT=IVALID 
IVALID=C 

PICK UP A NEW TEXT 
GO TO 25 

SINCE WORD IS ALREADY 
37 GOODWD( J»2)=G00DWDUt2 ) + l 
GO TO 36 

***4^** VAL!D WORD ASSOCIATIONS SECTION ****** 
**,******************************************* 



C SET 
36 

C GO 



WORD 

IN LIST, ONLY INCREASE ITS COUNT. 



C 

C 

C 

C 



355 

356 

357 



360 

363 

364 

365 

366 

367 

370 

373 

374 
377 

401 

402 

403 

404 

405 

406 
407 

410 

411 



412 

413 

414 
417 



EXAMINE THE PRESENT WORD TO SEE IF IT IS MEDICAL OR NON^MEDICAL. 

38 TYPEl = (IABS(DICT(IVAlID-l))'+99)/100 
GO TO (39,39,43) , TYPEl 

THE PRESENT WORD IS A MEDICAL TERM. 

39 TYPE2 = (IABS(DICT(ISENT-l))+99)/l00 Mn^McntrAi 

TEST THE PREVIOUS VALID WORD IN SENTENCE TO SEE IF IT IS A NONMEDICAL 

WORD. 

IF (TYPE2.NE.3) GO TO 30 
IVAL1=IVALID 
IVAL2=ISENT 

CONVERT THE NON-MEDICAL WORD TO ITS BASIC TERM. 

40 IVAL2 = IABS(DICT(IVAL2-l))-200 
IVAL2 = '•ACKKIVAL2) 

PACKNO = IABS(DICT(IVAL1-D) 

CONVERT, IF NECESSARY, THE MEDICAL WORD TO ITS BASIC TERM. 

IF (PACKNO. EQ.50. OR. PACKNO . EQ.49 ) I VAL1=PACK4 ( 4*PACKN0-2 ) 

SEARCH THE LIST OF ASSOCIATED VALID WORDS FOR THE SAME TWO WORDS. 

IF nVALilEQ.SUPL3(J,l).AND.lVAL2.EQ.SUPL3(Jf2) ) GO TO 42 
CONTINUE 

THE TWC NEW TERMS AT THE END OF THE LIST. 

SUPL3(SINDX3»1)=IVAL1 
SUPL3(SINDX3,2)=IVAL2 
IN A QCUNT OF THE ASSOCIATION. 

SUPL3(SINDX3,3)=1 
SINDX3=SINDX3+1 

C SET UP AN -END OF LIST- INDICATOR. 

SUPL3(SINDX3,1)=0 
SUPL3(SINDX3t2)=0 
GO TO 30 

TWO TERMS ARE ALREADY IN THE LISTf INCREASE THE COUNT. 

SUPL3(Jf3) = SUPL3(J,3)+1 
GO TO 20 

the present valid word is non-medical, test the previous valid WORD 

IN sentence to see if it is a medical term. 

43 TYPE2=TYPE1 

TYPEl=tiABS(DlCT( ISENT-1) )+99)/100+l 
IF (TYPEl. NE.l. AND. TYPEl. NE. 2) GO TO 30 
IVALi=ISENT 
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420 IVAL2=IVALID 

421 GO TO 40 

C ********-^*«*** ************ ******«#** 
c ****** END OF ARTICLE SECTION ****** 

C ************************************ 

422 44 GINDEX = GINDEX-1 

C PRINT THE NUMBER OF WORDS IN THIS ARTICLE. 

423 WRITE (6f45) WRDCT 

424 45 FORMAT (15H0N0. OF WORDS =tI5) 

C ********************************* 

C * PRINT VALID WORDS SUB-SECTION * 

C ********************************* 

C PROCESS LIST OF VALID WORDS. 

425 DO 60 I = IfGINDEX 

€ TEST TO SEF. IF THIS WORD WAS ALREADY DONE. 

426 IF (GOCDWD(Ifl).EQ.O) GO TO 60 

431 IVALID = GC0DWD(I,1) 

C INITALIZE PRINT LINE INDEX. 

432 LINDEX = 0 

433 PACKNO = I ABS I DI CT ( I VALI D-1) ) 

C LOCATE THE PACKAGE FOR THIS WORD. 

434 PINDEX = PACKN0*4-3 

C GET T 'E REGISTRY NUMBER OUT OF THE PACKAGE. 

435 REGNO = PACK4(PIN0EX) 

C TEST FOR A NULL REGISTRY NUMBER OR ONE WITH AN MX PREFIX. 

436 IF (REGNO) 47t51f46 

437 46 ITEMP = REGNO 

440 GO TO 48 

441 47 ITEMP = -{ REGNO+8000000) 

C PLACE MX-8 PREFIX IN LINE. 

442 LINE(l) = MA 

443 LINE(2) = X 

444 LINEC3) * CASH 

445 LINE(4) = EIGHT 

446 LINDEX = 4 

C CONVERT THE REGISTRY NUMBER (IN BINARY) TO COOED ( A6 FORMAT). 

447 48 KWORD(l) = ITEMP 

450 CALL CCNCOD(KWORO(D) 

C CONVERT THE A6 FORMAT TO Al. 

451 NWRDS = 1 

452 CALL DECOMP 

C LOOK FOR A LEADING ZERO IN THE REGISTRY NUMBER. 

453 IF (ITEMP. LT. 100000. AND. REGNO. GT.O) GO TO 49 

456 LINDEX = LINDEX+1 

C PUT THE FIRST DIGIT IN THE PRINT LINE. 

457 LINE(LINOEX) = WORD(l) 

C PLACE LAST 5 DIGITS OF REGISTRY NUMBER IN PRINT LINE. 

460 49 DO 50 J = 2f6 

461 LINDEX = LINDEX+1 

462 50 LINE(LINDEX) = WORD(J) 

464 LINDEX = LINDEX+1 

465 LINE(LINDEX) = BLANK 

C INITIALIZE COUNT OF REFERENCES TO THIS PACKAGE. 

466 51 PCOUNT = 0 

C LOOK THROUGH THE REST OF THE LIST FOR A REFERENCE TO THE SAME PACKAGE, 
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3^67 

A70 

A73 

A74 

477 

501 

502 

503 

504 

505 
510 

513 

514 

515 

516 

517 

520 

521 

522 

523 

526 

527 

530 

531 

532 

533 

534 

537 

540 



543 

544 
547 
550 

553 

554 

555 

556 

557 

560 

561 

562 



C IF FOUNC* INCREASE COUNT. 

DO 52 J = IfGINDEX 
IF (GOCDWD(Jf 11 . EQ.O) GO TO 52 
ITEMP = GOCDWDCJ.l) 

IF (IAES(DICT(ITEMP"1) l.EQ.PACKNO) PCOUNT 5 : PCOUNT+GOODWD ( J, 2 ) 

52 CONTINUE 

C RECORD THE NUMBER OF REFERENCES IN PRINT LINE. 

LINDEX = LINDEX+1 
LINE(LINDEX) = LP 
LINDEX = LINDEX+1 

C REDUCE THE PACKAGE REFERENCE COUNT TO AN INDICATOR. 

IN = 2 

IF (PCCUNT+IOOO.LE.WRDCT) IN = 1 
IF (PCCUNT*1000.GE.3*WRDCT) IN = 3 

53 LINE(LINDEX) = INDlCdN) 

LINDEX - LINDEX+1 
LINE(LINDEX) = RP 
LINDEX = LINDEX+1 
LINEILINDEX) = BLANK 

C NOW PROCESS EACH TERM CONTAINED IN THE PACKAGE. 

DO 54 J = li3 
JJ = PINDEX+J 
PTERM = PACK4(JJ) 

C CHECK FOR A NULL TERM IN THE PACKAGE. 

IF (PTERM. EQ.O) GO TO 54 
C PLACE THE PACKAGE TERM IN THE PRINT LINE. 

CALL WRDPUT(PTERM|2) 

LINDEX = LINDEX+1 
LINE(LINDEX) = COMMA 
LINDEX = LINDEX+1 
LINE(LINDEX) = BLANK 

C EXAMINE THE REST OF THE VALID WORD LIST FOR THIS SAME PACKAGE TERM. 
DO 54 K = IfGINDEX 
IF (GOCDWD(Kfl).NE. PTERM) GO TO 54 
C STRIKE THIS WORD FROM THE LIST SINCE IT HAS BEEN PRINTED ALREADY. 
GOODWD(Kfl) = 0 

54 CONTINUE 

C NOW EXAMINE THE LIST OF VALID WORDS FOR A WORD THAT BELONGS TO THE 
C PACKAGE BEING PROCESSED BUT IS NOT CONTAINED IN THE PACKAGE. 

55 DO 57 J= IfGINDEX 

IF (GOCDWD(Jfl).EQ.O) GO TO 57 
ITEST = GOCDWD(Jfl) 

IF (lABS(DICT(ITEST-D).NE.PACKNO) GO TO 57 
C WE HAVE FOUND A WORD BELONGING TO THE PACKAGE BEING PROCESSED. 
GOODWD(Jfl) - 0 

C TEST THE PACKAGE NUMBERf IF NEGATIVE DO NOT PRINT THE WORD. 

IF (DICT(ITEST-D) 57f57f56 
C PUT THE WORD IN THE PRINT LINE. 

56 CALL WRDPUT(ITESTf2) 

LINDEX = LINDEX+1 
LINE(LINDEX) = COMMA 
LINDEX = LlNOEX+1 
LINE(LINDEX) = BLANK 

57 CONTINUE 

C CHECK FOR AN EMPTY PRINT LINE. 
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564 

567 

570 

575 

576 

577 



601 

602 

603 

604 

605 
610 

611 

612 

613 

614 

615 

616 

621 

622 

623 

624 

625 

626 

627 

630 

631 

632 

633 

634 

635 
640 

643 

644 

645 

646 

647 
650 



IF (LINOEX.EQ.O) GO TO 59 
C DO NOT PRINT LAST COMMA AND BLANK. 

LINDEX =UNDEX-2 

C PRINT THE LAST LINE FOR THIS PACKAGE. 

WRITE (6f58) (LINE(J)t J=1,LINDEXJ 

58 FORMAT (IH ,132Ai) 

C SKIP A LINE BETWEEN PACKAGES. 

59 WRITE (6,58) 

60 CONTINUE 

C ######«#########*##### 

C # PRINT WORD ASSOCIATICJNS SUB-SECTION * 

C ######■«*####**#########«•»##*#*##*##**♦* 

C SKIP TWO LINES FOR NEXT OUTPUT SECTION. 

WRITE (6,61) 

61 FORMAT (IHO) 

SIN0X3=SINDX3-1 

C PROCESS LIST OF WORD ASSOCIATIONS. 

DO 64 I = 1,SINDX3 
C SKIP ANY WCRD ALREADY DONE. 

IF (SUFL3(I,1).EQ.0) GO TO 64 
Ml = SLPL3(I,1) 

C INITIALIZE FOR A NEW PRINT LINE. 

LINDEX = 0 

C PUT THE MECICAL TERM IN THE PRINT LINE FOLLOWED BY A SLASH. 
CALL WRDPUT(M1,0) 

LINDEX = LENGTH+1 
LINE(LINDEX) = SLASH 

C SEARCH THE RECORD FOR THE SAME MEDICAL TERM. 

DO 63 J = I,SINDX3 
IF (SUPL3(J,1).NE.M1) GO TO 63 
C REMOVE THE MEDICAL TERM FROM THE FILE. 

SUPL3(J,1) = 0 

C REMOVE THE NON-MEDICAL TERM. 

M2 = SLPL3(J,2) 

C REMOVE THE COUNT FOR THIS ASSOCIATION. 

NUMOCC = SUpL3(J,3) 

LINDEX = LINDEX +1 
LINE(LINDEX) = BLANK 

C PUT THE NON-MEDICAL TERM IN THE PRINT LINS. 

CALL WRDPUT(M2,5) 

C INSERT A FREQUENCY COUNT INDICATOR. 

LINDEX = LINOEX+1 
LINE(LINDEX) = BLANK 
LINDEX = LINDEX+1 
LINE(LINDEX) = LP 
LINDEX = LINDEX+1 
IN = 2 

IF (NUM0CC#1000.LE.WRDCT) IN « 1 
IF (NUM0CC#1000.GE.3*WRDCT) IN = 3 

62 LINE(LINDEX) = INDIC(IN) 

LINDEX = LINDEX+1 
LINE(LINDEX) = RP 
LINDEX = LINDEX+1 
LINE(LINDEX) = COMMA 

63 CONTINUE 
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C DO NOT PRINT LAST COMMA IN THE LINE. 

652 LINDEX = LINDEX-1 

C PRINT THE INCOMPLETED LINE. 

653 WRITE (6f58) (LI NE U) * J=1 * LINDEX ) 

660 6A CONTINUE 

C *************************************** 

C * PRINT NON-MEDICAL WORDS SUB-SECTION * 

C *************************************** 

C SKIP TWO LINES BEFORE DOING NEXT PRINT SECTION. 

662 WRITE (6,61) 

C TEST PROGR/iM PARAMETER TO SEE IF NON-MEDICAL WGRCS ARE TO BE LISTED. 

663 GO TO (65*68) « SW2 

664 65 NMINDX = NMINDX-1 

C CHECK FOR /^N EMPTY FILE, 

665 IF (NMINDX. EQ.O) GO TO 68 
C INITIALIZE PRINT LINE INDEX. 

670 LINDEX = 0 

C PROCESS THE NON-MEDICAL FILE. 

671 DO 67 I = 1, NMINDX 

C TAKE THE WCRD AND FREQUENCY COUNT FROM THE FILE. 

672 M = NMV»0RD(I*1) 

673 NUMOCC = NMW0RD(I*2) 

C PUT NON-MECICAL TERM IN PRINT LINE. 

674 CALL WBDPUT(M,6) 

C PUT THE NUMBER OF OCCURANCE OF TERMS IN LINE. 

675 LINDEX = LINDEX+1 

676 LINE(LINDEX) = LP 

677 NDIGIT = 1 

700 IF (NUMOCC. GT. 9) NDIGIT = 2 

C CONVERT COUNT FROM BINARY TO CODED ( A6 FORMAT). 

703 CALL CCNCOD( NUMOCC) 

C CONVERT FRCM A6 TO A1 FORMAT. 

704 KWORD(l) = NUMOCC 

705 NWRDS =1 

706 CALL DECOMP 

707 DO 66 J =1*NDIGIT 

710 JJ = 64J-NDIGIT 

711 LINDEX = LINDEX+1 

712 66 LINE(LINDEX) = WORD(JJ) 

714 LINDEX = LINDEX+1 

715 LINE(LINDEX) = RP 

716 LINDEX = LINDEX+1 

717 LINE(LINDEX) = COMMA 

720 LINDEX = LINDEX+1 

721 LINEKLINDEX) = BLANK 

722 67 CONTINUE 

724 IF (LINDEX. EQ.O) GO TO 68 

C DO NOT PRINT THE LAST COMMA AND BLANK. 

727 LINDEX = LINDEX-2 

C PRINT THE LAST INCOMPLETE LINE. 

730 WRITE (6,58) (LI NE ( I ) , 1=1, LINDEX ) 

C ********************************* 

C * PRINT COMPARISONS SUB-SECTION * 

C ********************************* 

C TEST PROGRAM PARAMETER TO SEE IF COMPARISONS ARE TO BE LISTED. 
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735 

736 

737 
740 



741 

744 

745 

746 

747 

752 

753 

754 

755 

756 

757 

760 

771 

772 

773 



774 



68 GO TO (69»69,74,78) * SWl 

69 SVINDX = 1 
C PRINT HEADING. 

WRITE J6,70) 

70 FORMAT ( 1H0» 15X* 21HC OMPARISON S/IH 
IT WORD - DICTIONARY WORD) 

C CHECK FOR AN EMPTY FILE. 

IF (SUPL(l).NE.O) GO TO 72 
WRITE (6,71) 

71 FORMAT (IH ,15X,7HN ONE) 

GO TO 74 

C LOOK FOR THE -END OF FILE- INDICATOR. 

72 IF (SUPL(SVINDX) .EQ.O) GO TO 74 
M=SUPL(SVINDX) 

MAX=SUPL(SVINDX+13 

NWRDS=SUPL(SVINDX+2) 

N=(DICT(M-2) )-3 
NWINDX=SVINDX+NWRDS+2 



,5X,6HCEGREE,5X,20HTEX 



PRINT^THE TEXT WORD AND DICTIONARY WORD SHOWING DEGREE OF COMPARISON. 
WRITE (6,73) MAX, (SUPL(J), J=JSV,NWINDX), DASH, (CICT(K),K=M,N) 

73 FORMAT (IH , 7X, I 2,3X, 29A6) 

SVINDX=NWINDX+1 
GO TO 72 



C ********************************* 

C * PRINT LARGE WORDS SUB-SECTION * 

C «*****-n ********* ****** *********** 

C TEST PROGRAM PARAMETER TO SEE IF LARGE WORDS ARE TO BE LISTED. 
74 IF (SW1.EQ.2) GO TO 78 



C PRINT HEADING. 

777 WRITE (6,75) 

ICOO 75 FORMAT ( IHO, 15X, 21HL ARGE WORDS) 

1001 SINDX2=1 

C CHECK FOR AN EMPTY FILE. 

1002 IF (SUPL2(1) .NE.O) GO TO 76 

1005 WRITE (6,71) 

1006 GO TO 78 

C LOCK FCR THE -END OF FILE- INDICATOR. 

1007 76 IF (SUPL2(SINDX2) .EQ.O) GO TO 78 

1012 NWRDS=SUPL2(SINDX2) 

1013 NWINDX=SINDX2+NWRDS 

1014 JSIN=SINDX2+1 

C PRINT THE LARGE WORD. 

1015 WRITE (6,77) (SUPL2( J) , J=JSIN,NWINDX) 

1022 77 FORMAT (IH ,17X,14A6) 

1023 SINDX2=NWINDX+1 

1024 GO TO 76 

C IDENTIFY THE END OF THE ARTICLE 

1025 78 WRITE (6,79) 

1026 79 FORMAT ( IHO, 15X, 27HE ND OF ARTICLE) 

C GO CHECK FCR A NEW ARTICLE 

1027 GO TO 2 

1030 80 FORMAT (14A6) 

1031 END 
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MATRIX 



1 

2 

3 

A 



C 

C 



7 

12 

13 

lA 

17 

2G 

23 

2A 

26 

27 

30 

31 

32 

33 
3A 

35 

36 

37 
AO 

A3 

AA 

A5 

A6 

A7 

50 

51 

52 

53 
5A 

55 

56 



ONE DICT ENTRY 



GC TO 3 



POINT 



ERROR EXISTS 



$IBFTC CICTCC 

C DICTIONARY PROCESSING AND CREATION OF TRANSFER 
Cl MENS ION INCICT(12) fDICT(3CC0 )fTRACC(A096) 

INTEGER CICTfTRACCfENCf BLANK 
DATA ENC,BLANK/C777777777777f6H / 

WRITE (6,71) 

LINK IS A VALLE USED TO CHAIN CICT ENTRIES 
NLINK IS USED TC GENERATE NEXT LINK VALUE 
NLINK=3 

INCX REFERS TO INDEX OF TRANSFER MATRIX 
INCX=C 

READ IN ONE LOGICAL RECORD - 

1 READ (13,2) INDICT, NPACK 

2 FORMAT (12A6,AX,IA) 

LINK=NLINK 

CHECK FOR END OF DICTIONARY 

IF (INCICTil).EG.ENC) GC TC 10 
NWRC REFERS TO NUMBER OF MACHINE WORDS USED BY DICT ENTRY 
DC 3 NWRC =1,12 
IF (INCICT(NWRC). EC-BLANK) 

D ICT ( NL INK ) = INDICT (NWRC ) 

3 NLIKK=NLINK+1 
IF PROGRAM COMES TC THIS 

WRITE(6, A) INDICT 
A FORMAT (IH ,21HERRGR 
REWIND 13 
CALL EXIT 
NLINK=NLINK+2 
CICT(LINK-1)=NPACK 
CICT(LINK-2)=NLINK 
WRITE (6,70) NLINK, NPACK, INDICT 
FORMAT (IH ,2I6,5X,12A6) 

FORMAT (33H1 ACCR PACK NO DICTIONARY TERM/) 

IF ( INCICT(l).LT.C) GO TO 6 
MXINCX IS THE MATRIX INDEX GENERATED BY A DICT ENTRY 
MXINDX=INCICT( 1)/2««2A 
GC TO 7 

MXINDX=2«»ll-INCICT ( 1)/2««2A 
IF (MXINCX-INCX) 1,9,8 
INCX=INCX+1 
TRACC( INCX) = C 
GC TC 7 
INDX=1NCX+1 
TRACD( INCX)=LINK 
GC TC 1 

CHAIN WORD OF LAST ENTRY TO C 
CICT(LINK-1)=0 
CICT(LINK)=INDICT(1) 

THIS POINT THE DICTIONARY IS (LINK) WORDS 



1, LARGE ENTRY-, 1AA6) 



5 

30 



70 

71 
33 



6 

7 

8 



SET 

10 



C AT 



LONG 



57 


REWIND 


13 






60 


REWIND 


2 






61 


WRITE 


(2) 


TRAOO 


62 


WRITE 


(2) 


LINK,(DICTi 


67 


WRITE 


(6, 


11) 


TRADC 


70 


11 FORMAT 


(IHC, 


1016) 



69 



1571 



L 



ERIC 



ISN 



BAXENC 

SGtRCE STATEREM 



FORTRAN SCt'RCE LIST CICTCO 



71 

72 

73 

76 

77 
102 
103 



BEGIN PROCESSING PACKAGE CARDS. 

INTEGER PACKN0,REGNCfPACKl(lC0),PACK5(350),P INDEX 

CINENSICN INPUT(12) 

READ PACKNO, REGNO 

FOR^'AT (I6fI8) 



40 

41 



C 

C 



« ««« 

PACKAGE 



104 

105 



106 

1C7 

110 

112 

113 

116 

117 

122 

124 



43 



52 



TO 45 



44 

45 



127 

130 

131 



132 

133 



134 



135 

14C 

141 

142 
145 



C 

C 

c 



147 

152 

153 



155 

156 



IF (PACKNC.EC.5SS999 ) GO TO 67 
I=14PACKNC/1C0 
GO TO (42»42»56)» I 

4-WCRC PACKAGE PROCESSING 
COr'POTE THE INDEX FOR THE 4-WCRC 
42 PINCEX=PACKNC«4-3 
PACK5(PINDEX )=REGNC 
READ AND PROCESS 3 DATA CARDS 
DC 52 1=1.3 
PINCEX=PINCEX+1 
READ (5.43) INPUT 
FCRRAT (12A6) 

IF ( INPUT ( 1) •EC-BLANK ) GO TO 
DC 44 NViRCS =1.12 
IF (INPUT(NWRDS). EG. BLANK) 

CONTINUE 

IF ( INPUT! D-LT.C) GO TO 46 
INDEX REFERS TO INDEX OF TRANSFER ADDRESS MATRIX 
INDEX=l+INPUT{l)/2««24 
GO TO 47 

INCEX=1+2»*11-INPUT( l)/2»«24 
M AS INDEX OF PROCESSED DICTIONARY 
M^TRADCdKCEX) 

NWRCS = NWRCS-1 

TEST THE NEXT 35 DICTIONARY WORDS FOR A COMPARISON- 
DO 49 K=1.35 

TEST FOR THE END OF THE DICTIONARY 
IF (M.EG.C) GO TO 54 
MTEMP=M 

DC 48 L^l.NWRDS 

IF ( INPUTU ) -NE-DICT (MTEMP ) ) GO TO 53 

48 MTEMP=MTEMP+1 tl-coc 

NEXT DICT WORD SHOULD BE SOME INDEX LESS 

LEFT TO THE WORD. THEN THIS TEST WILL FAIL MEANING WE MUST 
SEARCHING THE DICTIONARY FOR A COMPARISON- 
IF (IAES(CICT(MTEMP) ).LT.5CCC) GO TO 51 
53 M*DICT(M-2) 

At’tHIS^PCINT we have checked 35 WCRDS BUT COULD FIND NO COHPARISON 
WRITE (6.50 PACKNO. INPUT 
5C FORMAT (12HCRE PACK NC..I4.13H 



46 
USE 

47 



IS MORE 
CONTINUE 



CAN NCT FINC/IH .5X.12A6. 



157 



160 

161 



163 

164 

165 



113HIN DICTIONARY) 

GO TO 52 

INSERT DICTICNARY INDEX IN PACKAGE 

51 PACK51PINCEX)=M 

52 CONTINUE 

GO READ IN NEXT PACKAGE DATA CARD 
GO TO 4C 

54 WRITE (6.55) PACKNO. INPUT 

55 FORMAT (12H0RE PACK N0..I4.37H 



REACHED END OF DICTIONARY PRCCESSIN 



31571 



70 



BAXENC FORTRAN SOURCE LIST DICTCO 



ISN 




SCLRCE STATEMENT 




IG/IH ,5X,12A6) 


166 




GO TO 52 




c « » « « 


i-WGRC PACKAGE PROCESSING *•«* 


167 


56 


PINCE)( = PACKNC-2CC 


17C 




REAC (5,43) INPUT 


172 




CO 58 NNRCS=lfl2 


173 




IF (INPLT(NV«RDS). EC. BLANK) GO TO 59 


176 


58 


CCNTIME 


2G0 


59 


NWRCS=NNRCS-1 


201 




IF ( INPtT(l) .LT.C) GO TO 60 


20A 




INCEX=l-HNPLT(l)/2«*24 


205 




GO TO 61 


206 


60 


lNCEX = l+2«^m- INPUT (l)/2*»24 


2C7 


61 


P=TRADC( INDEX) 


21G 




DC 63 K~l,35 


211 




IF (P.EC.O) GO TO 66 


21^ 




PTEPP=P 


215 




CO 62 L=l,NhRDS 


216 




IF (INPUT(L).NE.CICT(PTEPP)) GO TO 65 


221 


62 


PTEPP=NTEPP+1 


223 




IF ( IABS(CICT(PTEPP) ).LT.50C0) GO TO 64 


226 


65 


P = CICT(l«-2) 


227 


63 


CCNTIME 


231 




WRITE (6,50) PACKNC, INPUT 


232 




GO TO 40 


233 


64 


PACK1(PINDEX)=M 


234 




GO TO 40 


235 


66 


WRITE (6,55) PACKNC, INPUT 


236 




GO TO 40 


237 


67 


WRITE (2) PACKS, PACKl 


24C 




WRITE (6,72) 


241 




WRITE (6,68) (PACK5(I),I=i,236) 


246 


68 


FORPAT (IHO, 19,315) 


247 




WRITE (6,73) 


250 




WRITE (6,69) (I,PACK1(I ),I=1,15) 


255 


69 


FORPAT (1H0,I9,I5) 


256 




REWIND 2 


257 




CALL EXIT 


260 


72 


FCRPAT (22H1CCCED TYPE 1 PACKAGES/) 


261 


73 


FORPAT (22hlC0CEC TYPE 2 PACKAGES/) 


262 




END 



o 



4 . 



Sorted Dictionary Terms with Linkages and Package Numbers 



o 



ACDR PACK NC CICTICMARY TERN 



11 


-5 


20 


-19 


26 


-A 


32 


-5 


38 


-23 


A5 


17 


52 


-38 


62 


10 


72 


1C 


79 


-38 


88 


-25 


96 


1C 


lOA 


37 


113 


3A 


122 


-3A 


129 


19 


139 


-33 


1A6 


-57 


15A 


-3 


162 


-3 


171 


22 


179 


-27 


187 


-27 


195 


-3 


206 


-23 


215 


21 


223 


A1 


231 


3 


2A2 


-3 


251 


-22 


259 


-9 


267 


-9 


275 


1 


285 


-23 


29A 


-21 


302 


15 


312 


23 


321 


t 

A 


329 


2A 


337 


39 


3A5 


2 


35A 


33 


362 


36 


368 


-8 


375 


-35 


383 


8 


392 


-35 


AOl 


-35 


A09 


-35 


A16 


-AC 


A23 


AC 


A31 


-29 


A3S 


-21C 


A38 


-2C1 


AAl 


-201 


AAA 


-201 


AA8 


-201 



1- ANINCPRCPANE-lf 3-C ICAR eCKYLIC ACID 
j-.gfj-YL—ZfS-CIGXC-'^—PHENYLINICAZCLICINE 

2- ANINCGLtTANARIC ACIC 
2-ANIN’CPEMANECICIC ACIC 
2-DESCXVPHENCEARBITAL 
2-ETHYL ♦2-NETHYLStCCIM NICE 

2-HYCRCXY-2-PHENYLPRCPICNANIDE nr aoh am ATP 

2-METHYL-2-N-PRCPYL-lf3-PRCPANECICL CICARBAMATE 

2-METHYL-2-PRCPYL-lf3— PRCPANECICL DICARBANATE 
2-PHENYL-2-HYDRCXYPRCPICNANIDE 

2- (P-ANIKCPH.ENYL)-2-ETHYL-6HJTARINICE 

2#2-CI ( C ARB ANCYLCXYN ETHYL) pentane 

3- ALLYL-5-ISCBUTYL-2-THICHYCANTCIN 

3-ALLYL-5-NETHYL-2 f A-CXAZCLIOINECICNE 

3-ALLYL-5-NETHYLGXAZCLlClNE-2fA-CICNE 

3-ETHYL-5-PHENYLHYCANTCIN triKiP 

3-ETHYL-5*5-CINETH.YL-2fA-DIKETC-CXAZCLIDINE 

3-METHYL-5-PHENYLHYDANTCIN 
3-NETHYL-5-PHENYL-5-ETHYL HYCANTC IN 

3-NETHYL-5f 5-PHENVLETHYLHYCANTCIN 
3t5-CINETHYL-5-ETHYLCXAZCLICINE-2fA-CICNE 
3f5f5-TRINETHYL-2»A-CXAZCLIDINECICNE 
3t5f5-TRINETHYLCXAZCLICINE-2f A-CICNE 

•j-ETHYL-l-NETHYL-S-PHENYLBARBITURIC ACIC 
5-ETHYL-1-NETHYL-5-PHENYLHYCANTCIN 

5-ETHYL-3-NETHYL-5-PHENYLHYCANTCIN ,y|r.A7nL ECICNE 
5~ETHYL-3-NETHYL-5-PH.ENYL-2 ,A (3Hf 5H)~INIDAZOLECICNt 

5-ETHYL-3 f5-ClNETHYL-2 fA-CXAZCLiCINECICNE 

k-ETHYL-5-ISCANYLEARBITLRIC ACIC 
5-ETHYL-5-ISCPENTYLBABBITURIC ACIC 
5— ETHYL-5-PHEN YLB ARB I TLR I C ACIC 

5-ETHYL-5-PHENYLHEXAHYCRCPYRINICINE-A,6-CI0NE 

5 — ETHYL- 5“*PHENYL-N-NETHYL— BARBITURIC ACID 
5— NETHYL— 5— PHENYLE ARB ITUR IC ACIC ^ . nTCMc 

5-PHENYL-5-ETHYLHEXAHYCRCPYRINICINE-A,6-CICNE 
5-PHENYL-5-ETHYL-3-NETHYLBARBITLRIC ACIC 
5-PHENYL-5-(2-TH1ENYL)-HYCANTCINATE 
5-(31-PHENANTHRYL)-5-NETHYLHYCANTCIN 

5.5- CIEThYL-l-NETHYLBAPBITURIC ACIC 

5 #5-CINETHYL-3-ETHYL-CXAZCLICINECICNE 
5 f 5-CINETHYLCXAZCL IDINE-2 f A-C I ONE 

5.5- CIPHENYLHYCANTCIN 

5 t5-CIPHENYLHYCANTCIN SCCIUN 
c c—pipheNYL— 2#A— INIDAZCLICINEDIONE 
l’5-CIPHE^YL-^f'^-II'IC^ZCUICI^ECIC^E SODIUK 
5 tciP^mL-i.UxPZCLICINECICNE SCCIUP 

5f 5-CIPHENYL-HYC ANTQ INATE SCCIUN 
5f 5-CIPHENYL-CXAZCLICINECICNE 

5.5- ClPRCPYL-CXAZCHClNEClCNE 
6-ETHCXYBENZCTHI AZCLE-2-SULFCNAN ICE 

ABSORPTION 

ACTING 

ACTION 

ACTIVE 

ACTIVITY 



A52 

A56 

A61 

A66 

A71 

A76 

A8l 

A85 

A89 

A93 

A97 

501 

5C7 

515 

524 

532 

5A2 

547 

552 

556 

561 

566 

569 

574 

579 

584 

589 

594 



204 AC^*IMSTEREC 

2C4 4CKIMSTER 

■ 2C4 ACKIMSTRATICN 

• 208 /ADVERSE EFFECT 

•208 ADVERSE EFFECTS 

.208 ADVERSE REACTION 

‘208 ADVERSE REACTIONS 

1 AGRYPNAL 

37 ALBUTCIN 

44 ALEPSAL 

35 ALEPSIN 

34 ALOXIDCNE 

-5 alpha-ahinoglotaric acid 

-17 alPHA-ETHYL-AUPHA-PETHYLSUCCIMPICE 

-38 aLPHA-HYDBOXY-ALPHA-PFENYLPROPICNAPICE 

-20 ALPFA-PhENYL-ALPFA-ETHYLACETYLllREA 

25 ALPHA(P“APINCPFENYL)-ALPFA ETHYL-GLUTARIMIDE 

-25 APINCGLCTETHIPIDE 

25 APINC-GLLTETHIPIDE 

-q APOBARBITAL 

-14 APOBARBITAL SODItP 

-9 APYLCBARBITCNE 

9 APYTAL 

APYTAL SCCIUP 
'ICCNVLLSANT 
, , ICCNVLLSANTS 

. l-CCNVLLSANT 
hivTI-EPILEPTIC 



598 


. 5 


ANTISACER 


603 


j9 


ANTISPASPCDIC 


607 


10 


APASCIL 


611 


IC 


APPETRCL 


615 


IC 


ARCOBAN 


619 


10 


ATRAXIN 


624 


38 


ATRCLACTAPIDE 


628 


39 


BAGRCSIN 


632 


9 


BARBAPIL 


636 


9 


BAR0APYL 


640 


1 


BARBENYL 


644 


1 


BARBIPHENYL 


648 


1 


BAR0IPIL 


652 


1 


EARBITA 


656 


-50 


BARBITURATE 


660 


-50 


BARBITURATES 


664 


1 


BARBIVIS 


668 


7 


BARPENTAL 


672 


30 


EECLAPIDE 


677 


-30 


BENZCHLCRPROPAPIDE 


681 


10 


eiOBAPAT 


685 


1 


BLU-PHEN 


689 


-56 


BULL NETTLE 


693 


10 


CALMIREN 


697 


10 


CANQUIL 


702 


28 


CARBAPAZEPINE 


706 


29 


CARDRASE 


710 


16 


CELONTIN 


714 


30 


CHLORACON 


720 


30 


CFLCRCETFYLPHENAPIDE 


723 


10 


CIRPCN 



74 



727 


35 


CITRULLANCN 


731 


46 


CGMITAL 


735 


12 


CCNTRAVUL 


738 


10 


CYRPON 


742 


11 


OELACURANINE 


746 


41 


CELTCIN 


750 


35 


CENYL SODIUM 


754 


10 


DESA-BAMATE 


758 


47 


CESBUTAL 


762 


8 


CIHYCGN 


767 


35 


DIHYDAN SOLUBLE 


770 


8 


DI-LAN 


774 


8 


DILANTIN 


779 


35 


DILANTIN SODIUM 


783 


33 


CIMEDIONE 


787 


36 


CIMEThADIONE 


791 


35 


DIPHANTOINE 


796 


35 


DIPHENINE SODIUM 


800 


35 


DIPHENTOIN 


805 


35 


CIPHENYLAN SODIUM 


811 


-35 


DIPHENYLHYDANTOINATE 


816 


8 


DIPHENYLHYDANTOIN 


822 


35 


DIPHENYLHYDANTOIN SODIUM 


826 


31 


DIPHOXAZIDE 


832 


-11 


D-TUBOCURARINE CHLORIDE 


836 


14 


DCRMINAL 


840 


1 


CCRMIRAL 


844 


9 


DORMYTAL 


847 


-205 


DOSAGE 


850 


-205 


DOSE 


853 


-205 


DOSES 


857 


1 


CUNERYL 


861 


10 


ECUANIL 


866 


-206 


EFFECTIVENESS 


870 


-206 


EFFECTIVE 


873 


-206 


EFFECT 


877 


-206 


EFFECTS 


881 


-206 


EFFICACY 


884 


8 


EKKO 


883 


25 


ELIPTEN 


892 


7 


EMBUTAL 


896 


35 


EPANUTIN 


899 


8 


EPELIN 


903 


13 


EPICLASE 


907 


27 


EPIDIONE 


911 


40 


EPIDONE 


915 


-207 


EPILEPSY 


919 


-207 


EPILEPTIC 


923 


-55 


EPSOM SALT 


926 


35 


EPTOIN 


930 


10 


EQUANIL 


934 


1 


ESCABARB 


938 


1 


ESKABARB 


942 


17 


ETHQSUXIMIDE 


946 


19 


ETHOTOIN 


951 


-29 


ETHOXZOLAMIDE 


955 


1 


ETILFEN 


959 


1 


EUNERYL 


963 


36 


EUPRACTONE 






75 



966 

970 

975 

979 

982 

986 

990 

996 

1001 

1005 

1010 

1014 

1018 

1022 

1026 

1030 

1034 

1038 

1042 

1046 

1051 

1058 

1062 

1066 

1069 

1074 

1077 

1081 

1085 

1089 

1094 

1099 

1103 

1107 

1111 

1115 

1119 

1123 

1127 

1131 

1136 

1140 

1144 

1148 

1152 

1156 

1160 

1164 

1168 

1172 

1176 

1180 

1186 

1192 

1196 

1200 

1204 

1207 

1217 



37 EUPRAX 

1 GARDENAL 

6 GARDENAL SOOIUW 

1 GAROEPANYL 

35 GAROIN 

2 GEMONIL 

5 GLUTACIO 

-4 GLUTAMIC ACIC 5-AMIOE 

-5 GLUTAMIC ACID 

5 GLUTAMINE 

-5 GLU^'AMINIC ACID 

10 HARMONIN 

58 HARMONYL-N 

30 HIBICON 

35 HIDANTAL 

-56 HORSE NETTLE 

43 HYOANTAL 

-51 HYDANTOINS 

1 HYPNETTES 

3 INSULTON 

-215 INVESTIGATION 

-9 ISOAMYL-ETHYLBARBITURIC ACID 

7 ISOBARB 

9 ISOMYTAL 

21 ISONAL 

35 LEPITOIN SODIUM 

18 LIFENE 

1 LIQUITAL 

1 LIXOPHEN 

1 LUMINAL 

6 LUMINAL SODIUM 

-55 MAGNESIUM SULFATE 

34 MALAZOL 

34 MALIDCN6 

21 MEBARAL 

46 MEBROIN 

48 MEDYLAN 

10 MEPANTIN 

10 MEPAVLON 

3 MEPHENYTOIN 

21 MEPHCBARBITAL 

10 MEPRCBAMATE 

10 MEPROCON 

10 MEPROSIN 

10 MEPROSPAN 

10 MEPRGTABS 

3 MESANTOIN 

3 MESONTOIN 

2 METHARBITAL 

41 METHETOIN 

3 METHOIN 

16 METHSUXIMIDE 

-3 METHYLPHENYLHYDANTCIN 

-18 METHYLPHENYLSUCCINIMIDE 

18 MILONTIN 

10 MILTOWN 

35 MINETOIN 

38 M-144 

-7 MONOSODIUM 5-ETHYL-5-( 1-METHYLBUTYL) BARBITURATE 



o 



76 



1226 


-7 


1230 


23 


1234 


23 


1247 


31 


1251 


7 


1255 


7 


1259 


58 


1263 


58 


1267 


7 


1271 


10 


1275 


1 


1281 


-211 


1286 


-211 


1294 


-30 


1302 


30 


1310 


-21 


1317 


18 


1325 


-3 


1335 


-16 


1343 


-18 


1353 


-16 


1359 


-21 


1366 


-20 


1369 


1 


1372 


1 


1376 


57 


1380 


30 


1388 


-16 


1391 


10 


1395 


7 


1399 


12 


1404 


-52 


1408 


10 


1412 


22 


1417 


22 


1421 


19 


1424 


7 


1430 


7 


1436 


-7 


1440 


7 


1443 


7 


1447 


-g 


1451 


10 


1455 


10 


1459 


10 


1463 


27 


1467 


27 


1471 


-27 


1475 


13 


1480 


-211 


1484 


-211 


1488 


45 


1492 


-21 


1496 


13 


1502 


-13 


1506 


3 


1510 


-20 


1515 


35 


1519 


1 



NiONOSODIUM ETHYL (1-METHYLBUTYL) BARBITURATE 



f^YLEPSIN 

N1-?BETA~HYCR0XY-BETA-BETA-DIPHENYLPR0P10NYL)-N2-ACETYLHYDRAZIN 



NA-PENT 

NAPENTAL 

NEMBU-DONNA 



NEMBU-GESIC 

NEMBUTAL 

NERVONUS 

NEUROBARB 



NEUROPHARMACOLOGICAL 

NEUROPHARMACOLOGY 

N-BENZYL-BETA-CHLOROPROPANAMIDE 
N-BENZYL-BETA-CHLCROPROP lONAMIDE 
N-METHYLETHYLPHENYLi)ARBITURIC ACID 
N-METHYL-2-PHENYLS0CCINIMIDE 
N-METHYL-5,5-PHENYLETHYLHYDANT0IN 

N-METHYL-ALPHA-METHYL-ALPHA-PHENYLSUCCINIMIDE 

N-METHYL-ALPHA-PHENYI.SUCCINIMIDE 

N-METHYL~ALPHAf ALPHA-METHYLPHENYLSUCCINIMIDE 

N-METHYL PHENOBARBITAL 

N~( ALPHA-PHENYLBUTYRYDUREA 

NOPTIL 

NUNOL 

NUVARONE 

NYDRANE 

Nf2~DIMETHYL-2-PHENYLSUCCINIMIDE 

OASIL 

OMNISED 

OSPOLOT 

nXAZOLIDINEDIQNES 



PANAOIOL 

PARAOIONE 

PARAMETHADIONE 

PEGANONE 

RENTAL 

PENTOBARBITAL SODIUM 
PENTOBARBITONE SODIUM 



PENTONE 

PENTYL 

PENTYMAL 

PEREQUIL 

PERQUIETIL 

PERTRANQUIL 

PETIDIONE 

PETIDION 

PETIDON 

PHACETUH 

PHARMACOLOGICAL 

PHARMACCLCGY 

PHELANTIN 

PHEMITONE 

PHENACEMIDE 

PHENACETYL-CARBAMIOE 



PHENANTOIN 
PHENETURIDE 
PHENITDIN SODIUM 



PHENOBAL 



o 



77 



1524 


1 


1530 


6 


1535 


-1 


1539 


1 


1543 


1 


1547 


18 


1551 


13 


1556 


-13 


1561 


-13 


1568 


1 


1574 


-1 


1581 


-15 


1585 


-8 


1590 


-35 


1595 


35 


1599 


24 


1605 


42 


1608 


1 


1621 


-12 


1625 


10 


1629 


30 


1633 


23 


1637 


10 


1641 


10 


1645 


10 


1649 


21 


1653 


32 


1657 


-213 


1661 


-213 


1664 


27 


1669 


-53 


1672 


10 


1676 


-56 


1680 


15 


1684 


3 


1688 


7 


1692 


-56 


1696 


3 


1700 


10 


1704 


-208 


1708 


-208 


1713 


35 


1721 


-14 


1729 


6 


1739 


7 


1748 


42 


1757 


-35 


1765 


35 


1772 


-14 


1780 


-6 


1784 


-26 


1788 


35 


1792 


35 


1796 


-56 


1800 


-26 


1806 


-7 


1812 


-6 


1818 


-6 


1821 


9 



PHENOBARBITAL 

PHENOBARBITAL SODIUM 

PHENOBARBITCNE 

PHENONYL 

PHENOTURIC 

PHENSUXIMIDE 

PHENURONE 

PHENYLACETYLUREA 

PHENYLACETYLUREA 

PHENYLETHYLBARBITURIC ACID 

PHENYLETHYLMALONYLUREA 

PHENYLMETHYLBARBITURIC ACID 

PHENYTOIN 

PHENYTQIN SODIUM 

PHENYTOIN SOLUBLE 

PHETHENYLATE 

PHETHENYLATE SODIUM 

PHOB 

P- ( TETR AHYDRO-2H-- 1 ,2-THlAZ IN-2-YL )-BENZENESULFONAM IDE# S# S* DIOX IDE 

PLACIDON 

POSEDRINE 

PRIMIDONE 

PROBATE 

PROMABYL 

PROMATE 

PROMINAL 

PROPAZONE 

PROPERTIES 

PROPERTY 

PTIMAL 

PYRIMIDINEDIONES 

QUANIL 

RADICAL WEED 

RUTONAL 

SACERNO 

SAGATAL 

SAND-BRIER 

SEDANTOIN 

SEDAZIL 

SIDE EFFECT 

SIDE EFFECTS 

SILANTIN SODIUM 

SODIUM 5-ETHYL-5-ISOAMYLBARBITURATE 

SODIUM 5-ETHYL-5-PHENYLBARBITURATE 

SODIUM 5-ETHYL-5-( l-METHYLBUTYDBARBITURATE 

SODIUM 5-PHENYL-5I 2-THIENYL )H YD ANTO I NATE 

SODIUM 5f 5-D I PHENYL-2 #4-1 MI DAZOL I DINED lONE 

SODIUM 5#5-DIPHENYL HYDANTOINATE 

SODIUM ISOAMYLETHYLBARBITURATE 

SODIUM PHENYL-5-ETHYL-5-BARBITURATE 

SOLANINE 

SOLANTOIN 

SOLANTYL 

SOLANUM 

SOLATUNINE 

SOLUBLE PENTOBARBITAL 
SOLUBLE PHENOBARBITAL 
SOLUBLE PHENOBARBITONE 
SOMNAL 



O 



78 



1825 


1 


SOMONAL 


1829 


7 


SOPENTAL 


1832 


7 


SOTYL 


1836 


1 


STENTAL 


1840 


-54 


SUCCINIMIOES 


1844 


12 


SULPHENYTAME 


1848 


12 


SULTHIAME 


1852 


35 


TACOSAL 


1856 


28 


TEGRETOL 


1860 


1 


TEOLAXIN 


1872 


12 


TETRAHYDR0-2-P-SULFAM0YL-PHENYL-1 t2-TH I AZ I NE-lf 1-DIOXIDE 


1876 


38 


THEMISONE 


1881 


-214 


THERAPEUTIC EFFECT 


1885 


-214 


THERAPEUTIC 


1889 


-214 


THERAPY 


1893 


-24 


THIANTOINE 


1898 


-42 


THIANTOINE SODIUM 


1902 


24 


THIANTOIN 


1907 


42 


THIANTOIN SODIUM 


1911 


-24 


THYPHENTOIN 


1915 


-212 


TOXICITY 


1918 


-212 


TOXIC 


1922 


-214 


TREATED 


1926 


-214 


TREATMENT 


1929 


-214 


TREAT 


1933 


27 


TRIDIONE 


1937 


27 


TRIMEDAL 


1942 


27 


TRIMETHADIONE 


1946 


1 


TRIPHENATOL 


1950 


12 


TROLONE 


1954 


27 


TROXIDONE 


1958 


11 


TUBADIL 


1962 


11 


TUBARINE 


1968 


11 


TUBOCURARINE CHLORIDE 


1971 


10 


UR6IL 


1975 


10 


VIO-BAMATE 


1979 


17 


ZARONTIN 


1983 


35 


ZENTROPIL 


1989 


-20 


(2-PHENYLBUTYRYDUREA 






79 



5. Type 1 and Type 2 Packages — Input 



o 



1 50066 

5-ETHYL-5-PHENYLBARRITURIC ACID 
PHENOBARBITAL 

barbiturates 

2 50113 
GEMONIL 

5^5-diethyl-i-methylbarbituric acid 
BARBITURATES 

3 50124 
MEPHENYTOIN 

5-ETHYL-3-METHYL-5-PHENYLHYDANTOIN 

HYDANTOINS 

4 56859 

2-AMINOGLUTAMARIC ACID 



5 56860 
GLUTAMIC ACID 

1- AM I NOPROP ANE-1 « 3-D I CARBOXYL I C ACID 

6 573*07 

PHENOBARBITAL SODIUM 

SODIUM 5-ETHYL-5-PHENYLBARB I TURATE 

BARBITURATES 

7 57330 

PENTOBARBITAL SODIUM 

SOD I UM 5-ETHYL-5- ( 1-METHYLBUTYL ) BARBI TURATE 
BARBITURATES 

8 57410 
DIPHENYLHYDANTOIN 

5*5-DIPHENYL-2*4-IMIDAZOLIDlNEDTONE 

HYDANTOINS 

9 57432 
AMOBARBITAL 

5-ETHYL-5-ISOAMYLBARBITURIC ACID 
BARBITURATES 

10 57534 
MEPROBAMATE 

2- METHYL-2-PROPYL-1 *3-PROPANEDIOL DICARBAMATE 

11 57943 

TUBOCURARINE CHLORIDE 



12 61563 

TETRAHYDRO-2-P-SULFAMOYL-PHENYL-lf2-THIAZINE“lf 1-DIOX IDE 



13 63989 
PHENACEMIDE 
PHENYLACETYLUREA 

14 64437 
AMOBARBITAL SODIUM 

SODIUM 5-ETHYL-5-ISOAMYLBARBITURATE 
BARBITURATES 

15 76948 

5-METHYL-5-PHENYLBARBITURIC ACID 
BARBITURATES 



16 77418 
CELONTIN 

N * 2-D I WETHYL-2-PHENYLSUCC I N I M I DE 
SUCCINIMIDES 

17 77678 
ETHOStlXIMIDE 

2- ETHYL #2-METHYLSUCCIMIMIDE 
SUCCINIMIDES 

18 86340 
PHENSUXIMIDE 

N-METHYL-2-PHENYLSUCCI N IM I DE 
SUCCIHIMIDES 

19 86351 
ETHOTOIN 

3- ETHYL-5-PHENYLHYDANTOIN 
HYOANTOINS 

20 90493 

( 2-PHENYLBUTYR YL ) UREA 
PHENETURIDE 

21 115388 
MEPHOBARBITAL 

5-ETHYL-1-METHYL-5-PHENYLBARBITURIC ACID 
BARBITURATES 

22 115673 
PARAMETHADIONE 

3*5-DIMETHYL-5-ETHYL0XAZ0LIDINE-2^4-DI0NE 

OXAZOLIDINEOIONES 

23 125337 
PRIMIDONE 

5-PHENYL-5-ETHYLHEXAHYDROPYR I MI D I NE-4 » 6-D I ONE 
BARBITURATES 

24 125611 
PHETHENYLATE 

5-PHENYL-5-( 2-THI ENYD-HYDANTOINATE 
HYDANTOINS 

25 125848 
aminoglutethimide 

ALPHA! P-AMINOPHENYU -ALPHA ETHYL-GLUTARIMIDE 

26 125973 
SOLANINE 



27 127480 
TRIMETHADIONE 

3#5*5-TRIMETHYL-2t4-OXAZOLIDINEDIONE 

OXAZOLIDINEOIONES 

28 298464 
CARBAMAZEPINE 
TEGRETOL 

29 452357 
ETHOXZOLAMIDE 

6-ETHOXYBENZOTHIAZOLE-2-SULFONAMIDE 

30 501688 

N-BENZ YL-BET A-CHLOROPROP lONAM I DE 

chloroethylphenamide 



31 511411 



N1-(BETA-HYDR0XY-BETA"BETA-DIPHENYLPR0PI0NYU-N2-ACETYLHYDRAZINE 



32 512129 

5*5-DIPROPYL-OXAZOLIDINEDiONE 



33 520774 

5*5-DIMETHYL-3-ETHYL-^XAZOLIDINEDlONE 

OXAZOLIOINEDIONES 

34 526352 
ALOXIDONE 

3-ALLYL-5-METHYL-2»4-OXAZOLIDINEOIONE 

OXAZOLIOINEDIONES 

35 630933 

DIPHENYLHYDANTOIN SODIUM 

SODIUM 5#5-DIPHENYL HYDANTOINATE 

HYDANTOINS 

36 695534 
DIMETHADIONE 

5*5-DIMETHYL0XAZ0LIDINE~2»4-DI0NE 

OXAZOLIDUJEDIONES 

37 830897 
ALBUTOIN 

3-ALLYL-5-ISOBUTYL-2-THIOHYDANTOIN 

HYDANTOINS 

38 2019683 

2-HYDROXY-2-PHENYLPROPIONAMIDE 



39 3784927 

5-( 31-PHENANTHRYL)-5-METHYLHYDANT0I N 
HYDANTOINS 

40 4171113 

5#5-DlPHENYL-OXAZOLIDINEDIONE 

OXAZOLIOINEDIONES 

41 5696060 
METHETOIN 

5-ETHYL-1-METHYL-5-PHENYLHYDANTOIN 

HYDANTOINS 

42 6509348 

phethenylate sodium 

SODIUM 5~PHENYL~5(2-THIENYUHYDANT0INATE 
HYDANTOINS 

43- 8028679 
HYDANTOINS 
BARBITURATES 

44- 8028680 



45- 8028691 
HYDANTOINS 
BARBITURATES 

46- 8028704 
HYDANTOINS 



barbiturates 

A7-8028715 

BARBITURATES 



48-8028726 

HYDANTOINS 

BARBITURATES 

49 

ANTICONVULSANTS 



50 

BARBITURATES 



51 

HYDANTOINS 



52 

OXAZOLIDINEDIONES 



53 

PYRIMIDINEDIONES 



54 

SUCCINIMIOES 



55 

MAGNESIUM SULFATE 
EPSOM SALT 

56 

BULt NETTLE 
SOLANUM 

57 

3-METHYL-5-PHENYLHYDANTOI N 
HYDANTOINS 

58 

BARBITURATES 



59 

ANTI SPASMODIC 



201 

ACTIVITY 

203 

anti-epileptic 

204 

ADMINISTRATION 

205 
DOSAGE 

206 
EFFECT 

207 

EPILEPSY 

208 

ADVERSE REACTIONS 
210 

ABSORPTION 

211 

PHARMACOLOGY 

212 

TOXICITY 

213 

PROPERTIES 

214 

THERAPY 

215 

investigation 



6. Coded Type 1 and Type 2 Packages 



o 
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CODED TYPE 1 PACKAGES 



50066 


267 


1519 


656 


50113 


982 


337 


656 


50124 


1127 


223 


1034 


56859 


20 


0 


0 


56860 


996 


3 


0 


57307 


1524 


1721 


656 


57330 


1424 


1729 


656 


57410 


811 


375 


1034 


57432 


552 


251 


656 


57534 


1136 


62 


0 


57943 


1962 


0 


0 


61563 


1860 


0 


0 


63989 


1492 


1551 


0 


64437 


556 


1713 


656 


76948 


294 


656 


0 


77418 


706 


1380 


1836 


77678 


938 


38 


1836 


86340 


1543 


1310 


1836 


86351 


942 


122 


1034 


90493 


1983 


1506 


0 


115388 


1131 


206 


656 


115673 


1412 


162 


1399 


125337 


1629 


302 


656 


125611 


1595 


321 


1034 


125848 


542 


532 


0 


125973 


1780 


0 


0 


127480 


1937 


171 


1399 


298464 


697 


1852 


0 


452357 


946 


423 


0 



o 



501688 129 A 71 A 



511411 ] 


L 234 


0 


0 


512129 


416 


0 


0 


520774 


345 


1399 


0 


526352 


497 


104 


1399 


630933 


816 


1757 


1034 


695534 


783 


354 


1399 


830897 


485 


96 


1034 


2019683 


45 


0 


0 


3784927 


329 


1034 


0 


4171113 


409 


1399 


0 


5696060 


1168 


215 


1034 


6509348 


1599 


1739 


1034 


-8028679 


1034 


656 


0 


-8028680 


0 


0 


0 


-8028691 


1034 


656 


0 


-8028704 


1034 


656 


0 


-8028715 


656 


0 


0 


-8028726 


1034 


656 


0 


-0 


579 


0 


0 


-0 


656 


0 


0 


-0 


1034 


0 


0 


-0 


1399 


0 


0 


-0 


1664 


0 


0 


-0 


1836 


0 


0 


—0 


1094 


919 


0 


-0 


685 


1792 


0 


-0 


139 


1034 


0 


-0 


656 


0 


0 



mQ 



598 
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CODED TYPE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 



2 PACKAGES 

444 

0 

589 

456 

844 

870 

911 

476 

0 

431 

1480 

1911 

1653 

1885 

1046 
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Sample of Print -out of Transfer Address Matrix 
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Mfliyiiifftlfffikii 



A\ 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1226 

0 

0 

0 

1286 

0 

1369 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

1069 

0 



0 

0 

0 

0 

109A 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

1085 

0 

0 

0 

0 

1207 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1395 
0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1376 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

1074 

0 

0 

0 

0 

0 

1107 

0 

0 

0 

0 

0 

1247 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1204 

0 

0 

0 

0 

0 

0 

1366 

0 



0 

0 

0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1380 

0 

0 

0 

0 

0 

1399 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1391 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1192 

0 

0 

0 

1234 

0 

1255 

0 

0 

0 

0 

0 

1388 

0 

0 

0 

0 

0 



o 
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Subroutine Program Listings 
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BAXENDA 

TIONARY 



IBMAP ASSEMBLY COMPOS 



02 / 02/68 



PAGE 



$TEXT COMPOS 



COMPOO' 



« 



THIS SUBROUTINE TAKES SINGLE CHARACTERS (A1 FORMAT) AND THEM 

SIX TO A WORD IA6 FORMAT). THE FOLLOWING VARIABLES ARE USED IN 

UNLABELLED COMMON- 

- ARRAY WHERE PACKED WORDS ARE RETURNED (14 WORDS). 

- INTEGER VALUE SHOWING NUMBER OF PACKED WORDS RETURNED. 

- ARRAY OF INOIVIVIDUAL CHARACTERS (72 WORDS). 

- INTEGER VALUE SHOWING NUMBER OF CHARACTERS TO BE PROCESSED. 







ENTRY 


COMPOS 






CONTRL 


// 


COMPOS 


SAVE 


lf2,4 


10011 




LXA 


CHARfl 


10000 




AXT 


72f4 


10000 




ZAC 




10011 


LOOP 


STO 


WORDS 


10001 




ADD 


INIT 


10001 




STO 


lA 


10000 




AXT 


6,2 


10011 




LDQ 


Al+72,4 


10010 








idoii 








10000 




LGL 


6 


10001 




TXI 


*♦1 ,4,-1 


10001 




TIX 


*+2 ,1,1 


10001 




TRA 


DONE 


10001 




TIX 


*-5,2,1 


ICOOl 




SLW* 


lA 


10001 




CLA 


= 1 


10011 




ADO 


WORDS 


10001 




TRA 


LOOP 


ICOOQ 




LGL 


6 


10001 


DONE 


LDQ 


BLANK 


10001 




TIX 


*— 2 ,2,1 


ICOOl 




SLW* 


lA 


10011 




CLA 


WORDS 


10001 




ADO 


® 1 


10011 




STO 


WORDS 






RETURN 


COMPOS 


00001 


lA 


BSS 


1 


10011 


INIT 


PZE 


A6 


10000 


BLANK 


BC! 


1, 


00001 




USE 


// 


00001 


A6 


BSS 


14 


00001 


WORDS 


BSS 


1 


00001 


A1 


BSS 


72 


00001 


CHAR 


BSS 


1 


00001 




USE 


PREVIOUS 






literals 


10000 









o 

ERIC 



PICK UP THE NUMBER OF CHARACTERS TO BE DONE 
PROCESS A MAXIMUM OF 72. 

CLEAR THE AC. 

STORE COUNT OF NUMBER OF PACKED WORDS. 



FIND ADDRESS WHERE NEXT PACKED WORD GOES. 

SAVE ADDRESS. 

NOW PROCESS 6 CHARACTERS. 

PICK UP NEXT CHARACTER. 



SHIFT INTO AC. 

DECREASE COUNT. 

TEST TO SEE IF ALL CHARACTERS DONE. 

YESt GO TO END OF SUBROUTINE. 

GO BACK IF WE DONT HAVE 6 CHARACTERS PACKED 
STORE PACKED WORD IN ADDRESS CALCULATED. 
INCREASE COUNT OF WORDS COMPLETED. 



CONTINUE LOOP. 

SHIFT BLANK CHARACTER INTO AC. 

PICK UP BLANK CHARACTER TO FILL IN WORD. 
SEE IF WORD HAS ALL 6 CHARACTERS. 

STORE LAST WORD. 



INCREASE COUNT OF WORDS DONE 
BY ONE. 

STORE COUNT. 

RETURN TO CALLING PROGRAM. 



I 



IBMAP ASSEMBLY COMPOS 



02 / 02/66 



EXTERN S*SLOC 
END 



GENERATED 



I 
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BAXENDA FORTRAN SOURCE LIST 

ISN SOURCE STATEHENT 

0 SIBFTC OECOMP NOOECK 

C SUBROUTINE TO DECOMPOSE A GIVEN NUMBER OF COMPUTER WORDS IA6) 

C INTO CHARACTERS(AI) 

1 SUBROUTINE CECOMP 

2 DIMENSION CHAR ( 6 ) «KHAR ( 6 ) t MASK ( 10 ) t AMSK ( 10 } 

3 DATA MASK /07700COOOOOOO #07700000000, 077000000, 0770000 tOTTOOt 

1077,0200000000000,0177777777777,0400000000000,0006060606060/ 

4 EQUIVALENCE (CHARI 1 ) ,KHAR ( 1 )), (MASK! 1 ), AMSK ( 1 ) ) 

5 COMMON WRD ( 14 ) ,NWRDS ,CHR ( 72 ) , LENGTH 

6 DATA BLANK/IH / 

C DECOMPOSE (NWRDS) 7040 WORDS INTO AN ARRAY OF (LENGTH) CHARACTERS 

7 DO 8 K = 1, NWRDS 

10 WORD » WRD(K) 

C DECOMPOSE A 7040 WORD INTO AN ARRAY OF SIX CHARACTERS 

11 CHAR(l) = ANO(WORO,AMSK(1) ) 

12 DO 6 I = 2,6 

13 J = I - 1 

14 CHARI 1) = ANOIWORO, AMSK(D) 

15 KHAR(I) = KHAR(I)*2*»(J*6 - 1) 

C TEST FOR PRESENCE OF SIGN IN MOST SIGNIFICANT POSITION 

16 TEST = AND(CHARII), AMSKI7)) 

17 IF (TEST. EQ. AMSKI7)) GO TO 5 

22 KHAR(I) - KHAR(I)«2 

23 60 TO 6 

C REMOVE LEFTMOST BIT SHIFT AND REPLACE 

24 5 CHAR(I) - ANDfCHARd), AMSK(8)) 

25 KHAR(I) = KHAR(I)*2 

26 CHAR(I) ° ORICHAR(I), AMSK(9)) 

27 6 CONTINUE 

31 DO 8 I * 1,6 

32 CHAR(I) = 0R(CHAR(I),AMSK(10n 

33 IN = (K-l)*6 + I 

34 8 CHR(IN) « CHAR(I) 

37 9 IF(CHR(IN).NE. BLANK) GO TO 10 

42 IN = IN - 1 

43 60 TO 9 

44 10 LENGTH = IN 

45 RETURN 

46 END 




L 
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BAXENCA FORTRAN SOURCE LIST 

ISN SOURCE STATEMENT 



0 

1 



SIBFTC HEAD NODECK 

THIS°SUBR0UT1NE READS IN THE ®^®LOGRAPHIC ENTRY CARDS OF EACH 
ARTICLE. IT CONTINUES READING CARDS UNTIL A SIGNAL CARD IS 



C 

C 

C 

C 



2 

3 

A 

5 

6 
7 

10 



ENCOUNTERED. THE INFORMATION ON 
A MARGIN WIDTH THAT IS SPECIFIED 
COMMON /H/ NUM 
DATA EXfBLANK/lHXf IH / 

INTEGER EXfBLANK,RECGRDfPRINT 
DIMENSION REC0RD(73) , PRINT! 132) 
INTEGER V,ZfUfY,W 
WRITE (6fl) 

FORMAT (IHl) 

SET UP OUTPUT PARAMETER J. 



THESE CARDS ARE PRINTED WITH 
IN THE LABELLED COMMON AREA -H-. 



11 

12 

13 

lA 

21 

22 

25 

26 
27 

31 

32 

35 

36 

37 
AO 
A3 
A6 
A7 



2 J * 1 
W = 1 

SET UP INPUT PARAMETER M. 

3 M = 0 , 

READ (5, A) (RECORD(Z)f I * lfT2) 

IFUNOtIc (RECORD! 1).EQ.BLANK).AND. (REC0RD(2).EQ.BLANK) ) ) GO TO 6 

DO 5 Y s WfNUM 
PRINT!Y) * BLANK 

5 CONTINUE 
GO TO 12 

CHECK FOR THE SIGNAL CARO. 

6 IF (RECORD!!) .EQ. EX) GO TO 18 

7 DO 9 I = JfNUM 

|U| SE M X 

PRINT! I ) * RECORO(M) 

IF (M .LT. 72) GO TO 8 
IF (l.EQ.NUM) GO TO 12 

a IF URECOROtHI.EB.BLANKI.ANO.IReCOROlM+lI.EQ.BLANKJ.AND.IRECOROtM* 

12). EQ. BLANK) ) GO TO 12 



52 

C 

C 

5A 

55 

60 

61 

62 

63 

6A 

71 

76 

77 
lOA 
105 
112 

115 

116 
117 
120 



9 CONTINUE 

IF WORD IS INCOMPLETE AT END OF OUTPUT LINE, 
TO NEXT LINE. 



10 



11 

12 



13 

lA 



15 



L » NUM 

IF !PRINT!L) .EQ. BLANK) GO TO 13 
L = L-1 
GO TO 10 
J = I + l 

GO TO 3 , 

WRITE !6,1A) (PRINT(K), K =* 1,1) 
WRITE (7,19) !PRINT!K) ,K=1, I) 

GO TO 2 

WRITE (6,1A) (PRINTIK), K « 1,L) 
FORMAT !1H ,130A1) 

WRITE (7,19) !PRINT!K),K*1,L) 

IF (L.LT.NUM) GO TO 15 
J * 1 
W = 1 
GO TO 17 
V a 0 



MOVE ENTIRE WORD 



o 



571 
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BAXENDA FORTRAN SOURCE LIST HEAD 

ISN SOURCE STATEMENT 

121 L * L+1 

122 DO 16 N = LtNUM 

123 V * V+1 

12^ PRINT(VJ * PRINT(N) 

125 16 CONTINUE 

127 J = V+1 

130 W s j 

131 17 IF .EQ. 72) GO TO 3 

134 GO TO 7 

C CHECK FOR AN -END OF ARTICLES- SIGNAL CARD, 

135 18 IF nREC0RD(2).EQ.EX).AND.(REC0RD(3).EQ.EX)) CALL EXIT 

140 RETURN 

141 19 FORMAT (132A1) 

142 END 



er|c 



o o 
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$IBFTC INCEXT 

THIS°SUBROUTINE CONVERTS THE FIRST TWO CHARACTERS OF A WORD 
INTO AN INDEX BETWEEN 1 AND 4096. 

COMHON KWQRDdA) 

COMMON /INDX/ INDEX 

GENERATE TRANSFER MATRIX ADDRESS INDEX. 

IF (KWORDU).LT.O) GO TO ) 

INDEX=KWORDC I )/2*#24 
GO TO 10 

9 INDEX=2**11~KW0RD( l)/2«*24 
10 INDEX=INDEX+1 
RETURN 
END 



o 



98 



1571 



ISN 



B4XENC 

SCtRCE STATEMENT 



FORTRAN SOURCE LIST 



er|c 



C $ I B F TC 

C CARC-TC-TAPE CONVERSION PROGRAM. 

1 DIMENSION CICT(IA) 

2 DATA S IGNAL/6FSIGNAL/ 

3 INTEGER CICT»SIGNAL 

i^ WRITE {6»A) 

5 A FORMAT (A2HCTHE FOLLOWING 

6 1 REAC (5,2) CICT 

10 2 FORMAT (1AA6) 

11 IF (CICT(l). EG. SIGNAL) GO TC 3 
WRITE (12,2) CICT 

15 WRITE (6,5) CICT 

16 5 FORMAT (IF ,5X,1AA6) 

17 GO TO 1 

20 3 REWIND 12 

21 WRITE (6,6) 

22 6 FORMAT (19F ENC OF INPUT DATA.) 

23 CALL EXIT 

24 ENC 



ARE NEW DICTIONARY ENTRIES 
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XENDA IBMAP ASSEMBLY CCNCOD 02/02/68 

ONARY 



STEXT CONCOD 



» THIS SUBROUTINE CONVERTS A BINARY NUMBER INTO A6 FORMAT FOR, PRINTING* 
♦ THE CALL FORMAT IS ..*CALL(X)f WHERE X IS THE INTEGER VARIABLE TO 





UJ 

CD 

m 


CONVERTED 


1 • 






ENTRY 


CONCOD 




CONCOD 


SAVE 


If2f4 


LOOOC) 




CLA* 


3f4 


LOOOl 




LDQ 


ZERO 


lOOOI 




VDP 


TABLE+5tf4 


LOOOl 




VDP 


TABLE+4f f6 


LOOOl 




VDP 


TABLE+3f f6 


LOOOl 




VDP 


TABLE+2tf6 


LOOOl 




VDP 


TABLE+ltf6 


lOOOl 




VDP 


TABLEf f6 


lOOOO 




STQ* 


3,4 






RETURN 


CONCOD 


10000 


TABLE 


OCT 


200000000000 


10000 




OCT 


024C00000000 


10000 




OCT 


003100000000 


ICCOO 




OCT 


000372000000 


10000 




OCT 


000047040000 


10000 




OCT 


000006065000 


10000 


ZERO 


OCT 


000000000000 






EXTERN 


S.SLOC 


01111 




END 





SAVE XR lf2f AND 4 

PICK UP THE BINARY NUMBER. 



RETURN CODED NUMBER TO MAIN PROGRAM 
RETURN TO THE MAIN PROGRAM 



GENERATED 






CONCOD 
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100 

31571 



ISN 

0 

1 

2 

3 

4 



BAXENDA 

SOURCE STATEMENT 



FORTRAN SOURCE LIST 



6 

7 

10 

12 

13 

14 
21 

22 

23 

24 

25 

26 

30 

31 



SIBFTC OUTWRD NODECK 

SUBROUTINE WRDPUT ( LOCt J I 

DATA IBLANK/IH / ,ntrT#annn» 

COMMON /LIN/ LINE(132)»LfLMf IDICT(3000) 

COHKON KH(14),NW,lWRDt7Z),LNGTH 
C GET THE LENGTH OF THE WORD TO BE PLACED IN THE PR 
NW =* IDICT(L0C-2)-(L0C+2) 

C EXTRACT THE WORD FROM THE DICTIONARY* 

DO 1 I = If NW 
II = LCC+I-1 

1 KWm = IDICTUl) „ 

C CONVERT THE WORD FROM A6 FORMAT TO Al« 

CALL DECOMP 

C SEE IF WORD WILL FIT INTO PRESENT LINE. 

IF (L + LNGTH + J - LM) 4t4f2 
C SINCE LINE IS FULLt PRINT IT. 

2 WRITE (6f3) (LINE! I) f I==lfL) 

3 FORMAT (IH tl32AlI 

C REINITIALIZE FOR A NEW LINE. 

LINEd) « IBLANK 



L a 1 

PLACE THE WORD IN THE 

4 DO 5 I * IfLNGTH 
L * L'^' 1 

5 LINE(L) * IWRD(I) 
RETURN 

END 



LINE. 



#5 



O 
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Operating Instructions 



t 
a 



ERIC 
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OPERATING INSTRUCTIONS FOR AUTOMATIC INDEXING PROGRAM 

Assumes processed dictionary tape on B3, Reads parameter card 
for width of lines in heading and article. Reads article cards 
until end of data signal ZZZ in columns 1-3. 

CONTROL AND COMMENT CARDS 



$IBFTC EDIT 


NODECK 


$J0B 


31571 BAXENDALE 



$*TAPE INPUT 237 ON B-3 



SPAUSE 


MOUNT TAPES 


$I6J0B 


NODECK 


$FILE 


-FTC02.-fU07fUC7»BL0CK=4097f SINGLE f REEL fTYPE3fLRL=4096, 


$ETC 


RCT^OOlf ERR^RERRX. fEOF^REOFX.f EOR^REORX. 



Automatic indexing program deck. 



END 

Subroutines 
$ENTRY EDIT 
65 4 2 


follow automatic indexing program deck 



First parameter card^, columns 1-3 is the line width used by HEAD 
subroutine 



Column 5 
codes 


1 - Print partial comparisons and large words 

2 - Print partial comparisons only 

3 - Print large words only 

4 - Do not list partial comparisons or large words 


Column 7 
codes 


1 - Non-medical terms saved 

2 - Non-medical terms not saved 



Data consisting of key-punched articles follow. 

See Fig. 6 for the arrangement of sentinel cards and articles. 
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X - 'End of data' signal for HEAD subroutine. 

ZZZ - 'End of data' for EDIT 

XXX - Means end of all data - end of program card for HEAD 
$IBSYS 



$PAUSE 


UNLOAD, SAVE TAPE CN B-3 . 


$IBSYS 
TIME 320 
CARD 540 
PAPR 590 


021468001432021468C01452 

021468000308 

021468000037 



o 
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OPERATING INSTRUCTIONS FOR DICTIONARY PROCESSING PROGRAM 
Set up tapes on B3 and B4 for output 

Set up tapes on B2, B5, B6^ B7 as scratch tapes to be used by the 
sort and merge program 

CONTROL AND COMMENT CARDS 

IJCE 31571 e^XENC/ME 

$«TAPE CtTPLT SCRATCH CN B2 t 6 3 t » E 5 t B6 t B 7 . 

IPAUSE r'OLNT TAPES. 

IIBJCB NCCECK 

SIEFTC 

Card to Tape Conversion Source Deck 
(This can be replaced by Object Deck) 

Card records input - magnetic tape output on B3 
$ENTRY 

DATA CONSISTING OF 
UNSORTED DICTIONARY CARDS 






SIGNAL - End of data card 
$IBSYS - Return to system 



31571 



BAXENC 



GENEPALIZEC SOPTING SYSTEf^ 



Generalized sort routine: Input on B3 sorted output on B4 

J lESVS 

lieSRT ^CTVPE 

SCRT PCMTCR NEW LCACING ECIT PHASE. 

CICTICNARY SCRT 

FILEflNPUT/lfELCCKSIZE/lAfREWINC 

F I LEfCtTPLTf BLCCK SIZE/ 14 f SERIAL /2» REVVING 

RECCRCfTYPE/FfLENGTh/14fFIELC/60C 

SCRT,FILE/1,CRCER/2,FIELC/1A 

SYSTEf^ # INPLT/S.SliC7fNERGE/BfCt'TPUT/S.SLC8 



CPTICNfNCCKPT 

END 



SYSTEN-PERGE-SANE CHANNEL SPECIFIED TInICE 

INPUT LMTS B3 

PERGE LMTS B2fB5 

HERGE LNITS B6fB7 

CUTPLT LNITS B4 

SCRT PCMTCP NCN LCACING PHASE CNE - INTERNAL SCRT. 
INTERNAL SCRT CC^'PLETEC 



TCTAL RECCRCS PRCCESStC 392 

SCRT PCMTCR NCN LCACING PHASE THREE - FINAL NERGE. 

1C3C1-CLTPLT GN B4 

RECCRCS MERGED — 392 

FINAL MERGE PHASE CCMPLETEC. 

SCRT MCNITCR RETURNING TC lESYS VIA S.SRET 



i ERIC 

ft 
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DICTIONARY PROCESSING AND CREATION OF TRANSFER MATRIX 

Process sorted tape on B4 giving condensed dictionary with 
transfer address matrix and packages output on B3, 

IFILE -FTC02.-fLC?,LC7,BLCCK=AC97,SIKGlEf REELf TYPE3f LRL=AC96 

$eTC RCT=C01fERR=RERRX.,ECF=RECFX.tECR-RECRX. 

SIBFTC DICTDO 



Dictionary processing source program deck 



o 
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10. Rules for Keypunching Articles 
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1. Text to be punched in columns 1-72. 

2. Text will be punched continuously; words unfinished in column 72 will be continued in column 
1 of the next card. 

3. Columns 73-80 are reserved for article identification. The ID will contain a sequential 
number in column 78, 79, 80. Numbers from 001 to 999. 

4. One space between words. 

5. A comma is placed in the column next to the last letter of the word preceding it and a space 
follows the comma. 

6. A period at the end of a sentence is placed next to the last letter of the last word of the 
sentence and is followed by two spaces. 

7. An abbreviation period within a sentence is followed by one space. 

8. All Roman letters, upper and lower case, italics are treated in the same way. For 
example, all kinds of ”b" are keypunched B. 

9. Greek letters - v/here Greek letters appear replace with English word name of letter. 

For example: di -Naphthyl keypunched as; ALPHA-NAPHTHYL 

10. Card containing END OF ARTICLE in columns 1-14 is placed at end of card deck containing 
tlie keypunched article. 

11. List the cards on 407 for checking purposes. 

12. Tables; copy lines of text. 

13. Figures, diagrams and pictures. Treat the description or legend as sentence or sentences. 

14. Omit formulae, footnotes, page numbers, acknowledgements, references. 

15. Bibliographic entry: Name, initials following; title; journal volume; pages; date. 
Bibliographic entry to be ended by an sign following immediately after last figure of 
date. 

16. Reproduce bibliographic entry, to be associated with summary or abstract. 

17. Keypunch abstract or summary with same rules as for article. 

18. If a word ends in column 72 the next word must begin in column 2 leaving column 1 blank. 
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